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THIS MONTH'S MAGAZINE 


In this issue, we publish the first part of a new series introducing machine code 
graphics, which is the basis for the superb screen displays of many of the good 
commercial games now on the market. The series will introduce many of the techniques 


involved and will also show you how to include these roütines in your Basic 
programs. 


We are also very enthusiastic about Block Blitz, one of the very best games 
written in Basic that we have seen for some time. The effort of typing this into 
your micro is well worthwhile. We have also included a detailed review of the two 
double density disc controllers that have so far been released. 


Apart from the many other excellent programs and articles this month, we have 
provided a short introduction to the computer language FORTH, as a prelude to а 
comparative review of FORTH implementations for the BBC micro, that we shall be 
publishing іп the next issue. Your views on the extent to which we should cater in 
BEEBUG for languages other than Basic would certainly be of interest to us. 


O.S. 1.2 
May I just remind you, for one more time, that this is the last issue of the 
magazine for which we will be testing all programs with both O.S. 0.1 and O.S. 1.2. 


From the next issue, we shall only be testing programs with 0.5. 1.2, though we 
shall continue to test on Basics I & II. 


SHOWS 

We Пай a busy time before Christmas, ав we not only produced two magazines 
(BEEBUG and ELBUG), but we were also represented at two shows, the Micro User Show 
and the Your Computer Christmas Fair, each over four days. If you wondered why our 
stand at the Micro User Show had the name Datel, it was because we could not get a 
stand when we called ourselves BEEBUG. This all seems rather silly. Anyway, we very 
much enjoyed meeting and talking to those of you who visited us at the shows. We 


shall also be at the Acorn Educational Exhibition in January (see Events in the 
Supplement). 


NEXT ISSUE 


This issue of BEEBUG covers both January and February 1984, and the next issue 
that you will receive will be for March 1984. 


ADVERTISING SUPPLEMENT ; 

As from the next issue all advertising in the supplement will be handled by 
Computer Marketplace Ltd. This will relieve a burden on our production team. If you 
are interested in booking space then give them a ring on 01-930 1612. 


Mike Williams 


HINT WINNERS 
This month's hint winners are D.Pooley who wins the £10 prize, and R.Duebel who 
wins the £5 prize. | 


MAGAZINE CASSETTE | 
In response to requests from a number of members, we have also included, on this 


month's magazine cassette, a сору of the machine code Compactor program by David 
Tall published in BEEBUG Vol. 1 No.9. 
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New Educational Software 
from Acornsoft 

Acornsoft have announced the release 
of a range of educational software 
developed by Applied Systems Knowledge, 
which is now being marketed by 
Acornsoft. Ten different software 
packages are available, covering 
concepts іп numeracy and literacy, and 
designed for use with children from the 
age of 3 to ll years. The programs are 
available now at £9.95 each and 
Electron | versions will also be 
available shortly. [See review ОЁ 
FACEMAKER in this issue.] 


Marriage Guidance by Computer 

Acornsoft have released two new 
programs that are unusual, and perhaps 
controversial. Both programs make изе 
of "personality questionnaires" 
developed by Professor Hans Eysenck and 
Dr.Glenn Wilson. "The dating дате" 
enables individuals to examine their 
personalities and help them find 
partners tnat аге likely to be 
compatible. "I do" helps couples to 
assess the good and bad points of their 
relationships, апа pin-point danger 
areas which could lead to trouble. Both 
packages cost £12.65 inc VAT and will 
run on either the BBC micro or the 
Electron. 


All Acornsoft programs are available 
tnrough computer snops and dealers. For 
further information contact  Acornsoft 
at 4А Market Hill, Cambs, CB2 3NJ. 


Low Cost Printer Interface 

For £32.25 (+£1 post) you can obtain 
an interface for your Beeb which allows 
your to use a Sinclair Printer, or 
£71.95 (+£2 post) for a package of the 
interface апа printer together. 
Available from: 
I.T.M. ltd., ЕЗ New Enterprises, South 
West Brunswick Dock, Liverpool, L3 4AR. 


Beaver Plotter 

An А4  flat-bed plotter with 
Centronics interface, which accepts 
most types of pens costs £449 (plus 
VAT) from Linear Graphics Ltd., 34a 
Brook Road, Rayleigh Weir Industrial 
Estate, Rayleigh, Essex, SS6 7XN. 
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An 8" disc drive DFS is available 
from Vogan Products, "The White 
House", 21 Grove Road, Hazlemere, 
Bucks., НР15 70Ү, for £44.95 (+£1.50 
post) including manual. The DFS is 
supplied on EPROM and allows nearly 1.2 
Mbytes of storage on the 8" drives, 
with 62 files per surface. It will even 
allow you to have up to 248 active 
files. 


Residential Computer Courses 

Horncastle Residential College, 
Mareham Road, Horncastle, Lincolnsnire, 
LN9 6BW, is offering 2 short 
residential courses for anyone with a 
reasonable knowledge of Basic, called 
"Writing Games Programmes" on 17-19 
February 1984, and "Programming Your 
Micro" on 20-22 February 1984. Contact 
the College for further details. 


Video Camera Interface 

This new Video Camera Interface 
allows a standard video signal to be 
digitised and captured by the Beeb, 
with a resolution of 220 by 312 pixels 
and is capable of converting up to 64 
levels of grey. When used witn a video 
camera (black апа white or colour), a 
command given to the micro enables the 
video image to be stored in the micro. 
This image may then be manipulated 
further under user control. The final 
image can then be saved on disc (or 
cassette). The interface costs £174 
(+VAT) from Educational Electronics, 
30 Таке Street, Leighton Buzzard, 


Beds., LU7 8RX. 
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DIGITAL DISPLAY IN 
by Mike Williams 


There are many applications where it can be very attractive to display numerical 
information on the screen in the form of a large digital display, similar to that 


produced by many digital readout meters and other types of equipment. 
here some interesting routines that you can incorporate in your own pr 


We present 
ograms to do 


just that, in mode 7. The display can be further enhanced by using some of the 
procedures described in this montn's Teletext Mode article. 


Using the routines included here 
will enable you to produce а large 
digital display on the screen. The 
display may contain up to 6 characters 
(including digits, decimal point and 
minus sign) and there is room on the 
Screen for two such digital displays, 
one above the other, if you need to 
display two values concurrently. Тһе 
digits are changed quickly and 
realistically, and provide an ideal way 
of displaying rapidly changing numbers 
in а clear and readable Way , 
particularly if they are to be visible 
from a distance or to a large group of 
people. Techniques very similar to this 
have been used to turn the Beeb into an 
accurate voltmeter, temperature gauge, 
pressure gauge, air speed indicator 
etc. 


The routines to produce the display 
consist of two procedures,  PROCdigitl 
and PROCdigit2, together with a 
function FNchar. Тһе use of these 
procedures is illustrated by a short 
program which also uses two of the 
procedures, PROCmsg 1 and PROCbox , 
described in this month's article on 
the Teletext Mode, to give a neat and 
professional look to the results. The 
value being displayed on the screen is 
obtained from channel 1 of the A/D 
converter. This will provide a value, 
which floats around a predetermined 
mean, even with nothing connected to 
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the analogue port. If you are able to 
connect anything to the analogue port, 
Such as a joystick or a low voltage 
input, then you should be able to 
display a much wider range of values on 
the screen. The instructions іп lines 
200 to 220 simply convert the A/D value 
to lie within the range 2 to 10 (see 
page 202 of the User Guide) and to 
conforn to the required 6 character 
format, before calling PROCdigit2 to 
display the value in large digits. 


PROGRAM NOTES 

In the program presented here, each 
digit is made up on a grid 7 characters 
high and 5 characters wide (though 
other sizes could also be designed) and 
each of the 7 rows is preceded by the 
graphics control code 145 (for red 
graphics). Thus іп total, each digit 
consists of 42 characters, and the 
Character string for each digit is 
assigned to the corresponding element 
of an array DIGS, so that element 0 
contains the characters that form "T s 
element 1 contains the characters that 
form '1' and so on. 


To display a digit on tne screen, a 
text window 6 characters wide and 8 
characters high (to avoid problems of 
unwanted scrolling) is defined, and 
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then the. oDaracter string Жог 
digit is simply poured into the defined 
area, which constrains the characters 
to oroduce the correct shape. The 
Screen width can accommodate a maximum 
of six large digits of this size, апа 
the procedures have been written to 
correctly display decimal points and 
minus signs should they occur. 


To | achieve these results мо 
procedures and one function are used. 
Before any digits can be displayed on 
the screen, the corresponding character 
strings have to be assigned to the 
array DIGS. This is done by tne 
procedure PROCdigitl and the function 
FNchar. Each large digit is coded as a 
set of 7 numbers (to save space), with 
each number representing, in order, the 
state of each of the 7 rows of the 
digit. Each row is made up of graphics 
character 255 апа the space character 
22% These two characters are 
represented by 1 and 9 respectively, 
forming a 5 digit binary number that is 
then written in the program as a 
decimal number. For example, the digit 
8 is coded: 

11111 

10001 

10001 

11111 

10001 

10001 

11111 
This gives the set of numbers 
31,17,17,31,17,17,31 which appear in a 
data statement (since binary 11111-31 
decimal, апа 10001-17). Tne procedure 
PROCdigit! reads the data numbers апа 
calls FNchar to decode each number into 
the corresponding string of ASCII 255 
and 32 characters. 


To place the digits on the 
requires the use of the. procedure 
called PROCdigit2. This expects a 
number with a maximum of 6 digits 
(including any decimal point or minus 
sign) will be passed as a character 
string (v$), together with the position 
_ (x%,y3) of the top left corner of the 
screen area in which the six characters 
will be placed. The procedure then 
places the corresponding large digits 
on the screen, working from right to 
left. This ensures that the rightmost 
digits, which in practice are the ones 
most likely to change, are the ones 


screen 


that 
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which are 


re-displayed first. The 
positions of the large digits on the 
screen are determined by the parameters 
x% and y% which help to define the text 
window at line 2030. 


Although the large digital display 
could be used, as here, to measure some 
external input, the same techniques are 
much wider in application, and can be 
used whenever such a digital display is 
needed. 


Note that in the listing below, tne 
two procedure definitions for  PROCmsgl 
and  PROCbox are copied exacly from the 
program TEXTED that forms part of the 
article on the Telext Mode that appears 
elsewhere in this issue. 


19 REM Program DIGITS 

20 REM Version В1.4 

30 REM Author Mike Williams 

40 REM BEEBUG Jan/Feb 1984 

50 REM Program subject to Copyright 
60: 
100 MODE 7 

110 ON ERROR СОТО 900 

120 PROCdigitl 

130 Ур023,1,0; 0; 0;0; 

140 PROCbOx(5,1,1,4,39) 

150 PROCbox(5,1,4,11,39) 

160 PROCbox(5,3,16,3,35) 

170 PROCmsgl("Digital Display",2,12,2) 
180 PROCmsgl("Press Escape to exit", 


‚1@,17) 


190 REPEAT 

200 vS=STRS (INT (19000*ADVAL (1) /65520) ) 
2147 VS=STRINGS (4-LEN (v$) ,CHRS48) *v$ 
220 valueS=""+LEFTS (v$,1)+"."+RIGHTS ( 


VŠ; LEN (v$) -1) 


238 PROCdigit2 (value$,2,6) 

240 UNTIL FALSE 

250 END 

260: 

900 ON ERROR OFF:MODE 7 

910 IF ERR<>17 THEN REPORT:PRINT" at 


line ";ERL 


920 END 

930: 

1000 DEF PROCmsgl (msg$,c$,x$,y*) 

1910 PRINT TAB(x3-1,y%) ;CHRS (129+с%) ;m 


545; 


1020 ENDPROC 

1030: 

1500 DEF PROCbox(c$,x$,y$,h$,W$) 

1510 LOCAL с5,1%,у1% 

1520 yl$-y$*h$-| 

1530 FOR i$-y$ ТО у1% 

1540 PRINT TAB(x$-1,i$);CHRS$(l145-4c$);' 
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1550 IF i$-y$ THEN PRINT CHRS183; ELSE 
IF 1%=у1% THEN PRINT CHRS245; ELSE PRI 
NT CHRS181; 

1560 IF i$-y$ THEN PRINT STRINGS (w$-2, 
CHRS163) ; | 

1570 IF i$-yl$ THEN PRINT STRINGS (w3-2 
,Снвө240); | | 

1580 IF і%-у% THEN с9-СНВ9235 ELSE IF 
i$zylt THEN c$-CHR$250 ELSE cS-CHR$234 
1590 ТЕ i$»y$ AND і%<у1% THEN PRINT ТА 


В(х%%мч%-2,1%);СНЕ5(145-с%); 
1600 PRINT TAB(x%+w3-1,i%) cS; 
1610 NEXT 1% 

1620 ENDPROC 

1630: 

17600 DEF PROCdigitl 

1718 LOCAL. d%,r3,x% 

1720 DIM DIGS(9) 

1730 FOR 4%=0 TO 9 

17404 FOR r3=1 TO 7 

1750 DIGS (d$) =DIGS (d$) +CHRS145 
1760 READ х% 

1770 DIGS (d%) =DIGS (d$) +FNchar (x2) 
1780 NEXT ү%,а% 

1790 ENDPROC 

1795: | 

1800 DATA 31,17,17,17,17,17,31 
1810 DATA 4,4,4,4,4,4,4 

1820 DATA 31,1,1,31,16,16,31 


1830 DATA 31,1,1,31;1,1;31 

1840 DATA: 17,17,17,31,1,1, 1 

1850 DATA 31,16,16,31,1,1,31 
1960 DATA 31,16,16,31,17,17,31 
1820" DATA 3I,1,T41,15 15 

1880 DATA 31:17:17,231; 172117534 
1890 DATA SL,17,175;3T1,1,41,1 
1895: 

1908 DEF FNchar (x2) 

1918 LOCAL i% ,z$:z$="" 

1920 FOR 1%-4 TO 0 STEP -1 

1938 IF x% AND 271% THEN zS=zS+CHRS255 
ELSE zS=zS+CHRS32 

1940 NEXT 1% 

1950 =25 

1960: 

2000 DEF PROCdigit2(v$,x$,y2) 
2010 LOCAL 4%,а1% 

2020 FOR d%=LEN (v$) TO 1 STEP -1 
2030 dl$-5- (LEN(v$) -d£) : VDU28,x%+6* (dl 
$) ,У%%7,5%х%%6%(41%) ,y$ 

2040 dl$-ASC(MIDS (v$,d$,1)) 

2050 IF 41%-46 THEN CLS:PRINT TAB(2,3) 
;CHR$145;CHRS$255; ELSE IF 41%-45 THEN C 
LS:PRINT TAB(0,3);CHR$145; STRINGS (5, CHR 
$255); ELSE IF 41%>47 THEN VDU39:PRINT 


DIGS(VAL(MIDS(v$,d$,1))); ELSE CLS 


2060 NEXT d$ 
2070 ENDPROC Ed 


Last month we carried a review of 


the 3 inch AMS disc drives for the BBC 
micro. These Seemed to us to be 
excellent drives, but as we noted іп 
our review, were marred by the 
shortness of the supply cable, and the 
fact that it was untethered at the disc 
drive end. This cable carries the 
Supply for tne unit and is plugged into 
the low voltage power output socket 
underneath the Веер. These faults on 
our review model have been cured on 
current production models, and in view 
of this we have arranged a special 
offer on these drives to members. 


Drive type Normal Members 
price price 
3" single £255 £225 
(100K) 
3" double £399 £369 
(200K) 


This offer is not available to 


members outside the U.K. 
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All prices include VAT and carriage. 
Send cheque and membership number to 


BEEBUGSOFT 
Р.О. BOX 109 
High Wycombe 
Bucks 
НР11 2TD 
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RODUCTION T: 
by John Yale 


AN INTI 


FORT 


Many members will have seen alternative languages to Basic advertised, and may be 
wondering which, if any,to choose. Next month, we will be publishing a comparative 
review of three versions of FORTH which are available for the BBC micro, but first, 


what is FORTH and what does it offer compared with Basic? 


FORTH is different from any other 
language in common use, although it 
does share common features with many. 
The key to FORTH is that it is an 
extensible interactive language. 
Starting with a few dozen primitives 
defined іп machine language, FORTH is 
extended by defining new operations 
(called 'words') in terms of the 
primitives. As soon as a new word 15 
defined, it may be used іп further 
definitions or executed immediately as 
if it were а primitive. Thus much of 
the language is actually written in 
FORTH itself! 


The systems currently available for 
the BBC micro have around 200 words 
already defined. Programming consists 
of defining new words in terms of 
previously defined ones until one of 
them performs all the functions of the 
program which is required. 
Communication between words is not via 
parameter lists or variables (although 
variables may be used) but via a stack. 
This leads to very easy debugging, аз 
most words can be executed from the 
keyboard by typing in their test 
arguments (which places them оп the 
stack), then typing the name (which 
executes it) and finally displaying the 
Stack for results. 


The key then to FORTH is its 
building block approach, allowing new 
facilities to Бе added to the system, 
including new data types апа compiler 
extensions (eg. if a CASE construct is 
not supplied, it may be added Бу the 
user). There is no sharp division 
between system and application in 
FORTH, rather the system grows towards 
the users application. 


The following short example of a 
FORTH program shows how this works in 


practice. The purpose of the program is 
to display the dots and dashes 


comprising the morse code for 5.0.5. 
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Note how new words are defined in terms 
of primitives and previous definitions. 
First, the program defines DI, ПА аға 
GAP, then uses these to define S and O, 
then SOS and HELP. Each new definition 
can be tested as it is typed in and 
finally, typing HELP, will continually 
display on the screen the morse code 
for 5.0.5. 


=o “зо 


DA IS. 
GAP SPACE ; 

S DI DI DI САР; 

О DA DA DA GAP ; 
505 S OS GAP САР; 
HELP BEGIN SOS 


оз оо оо оо оо оо оо 


0 UNTIL Ø ; 


To describe in a few words what 
FORTH is and why you should want it on 
your BBC Computer, I can do no better 
than to quote from the back of "Тһе 
Complete FORTH', a new book about FORTH 
just published Бу Sigma Technical 


Press: 

"FORTH 1S a new, unusual 
and exciting computer 
language. Originally 
developed to control 


telescopes, it has since been 


applied in many diverse 
fields including the 
animation sequences for ‘Star 
Wars'. 


FORTH is a compact апа 
fast language, faster than 
BASIC yet more flexible. It 
is more than just a language, 
it iS a programming language, 
editor, assembler and disc 
operating system all rolled 
into опе. In short, a 
complete 'environment'." 
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ILE DENSITY DISC CONTROLLER 
reviewed by Philip Le Grand and Mike Williams 


This month we review two of the double density disc controllers that have 


S 


recently become available. These are the Microware DDFS and the  Kenda Professinal 
MDFS which enable you to double the Storage capacity of most disc drives at a cost 
less than half the price of a second drive. They also provide a number of other 
features not available with the Acorn DFS. Too good to be true? Maybe not. 


Product: Kenda Professional MDFS 
Supplier:The Kenda Group 
Nutsey Lane, Totton, 
Southampton 504 3NB. 
Cost: £138 inc VAT 


Product: Microware DDFS 
Supplier:Microware 
637a Holloway Road, 
London N19 5SS, 
Cost: £100.58: inc VAT. 


The standard BBC micro, with disc 
interface and Acorn DFS, will allow a 
maximum of 31 files per surface using 
40 or 80 track discs in single density 
mode. This provides a storage capacity 
of 200k or 400k оп опе double sided 
disc. Several firms already produce 
their own DFS system, often extending 
the limit on directory size from 31 to 
62 but this does not increase the 
overall storage capacity of the disc. 
Double density discs allow twice as 
many sectors to be packed on each track 
and are readily available, so why not 
use the extra capacity? 


Unfortunately, the 8271 disc 
controller used in the ВВС micro is 
incapable of providing double density 
format, and so another controller must 
be used instead. This is usually tne 
8272 which can support both single and 
double density modes. Since this chip 
is not pin compatible with the 8271, it 
must be used with а special carrier 
board which will plug into the normal 
8271 socket. Two systems that follow 
this course of action and provide true 
double density on the BBC micro are now 
available. 


These are the  Microware DDFS 
controller, and the Kenda Professional 
MDFS system. Both systems contain all 
the necessary parts to implement a 
complete disc upgrade on a Model B, 
though if you already have a disc 
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be redundant and you will need to 
remove your Acorn or Watford DFS. Both 
Systems were comparatively easy to 
install and both per formed to 
specification. However, the two systems 
offer completely different filing 
systems, and it is a comparison of 
these tnat will most likely form the 
basis of your own choice. 


MICROWARE DDFS 

This controller is supplied on a 2" 
by 2" pcb and the construction is of a 
high quality. The kit consists of the 
controller board, DDFS in EPROM, a dil 
Switch апа all the necessary interface 
chips. In order to review the Microware 
package in this issue, we had to work 
without the full manual that will be 
provided to purchasers, as this was 
still being printed. We did have 
sufficient information supplied to fit 
the system апа this task proved quick 
and easy - no soldering is required. 


Initially we were unable to obtain 
satisfactory results but discussions 
with Microware revealed that the double 
density system was designed for use 
with issue 4 апа higher boards. On 
issues 1 to 3 boards, it is necessary 
to solder the carrier board in position 


or fit an alternative socket, Apart 
from this there were no other problems. 
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The dil switch supplied is fitted to 


the keyboard and can be set to optimise 
disc access (different makes of disc 
drive require different settings). This 
was a useful extra which is not 
normally provided with the Acorn DFS. 


Switching the micro on reveals that 
Microware MDFS is now installed. All 
the standard Acorn DFS commands are 
available, and there is опе useful 
addition, a built in formatter on the 
DDFS ROM. The start of memory (PAGE) is 
set to &1900 as for Acorn DFS systems. 


The system is able to detect 
automatically whether a single or 
double density formatted disc is being 
used, and allows up to 31 files to be 
stored per surface (but see notes at 
end of review). The storage capacity of 
the disc will now be 480k on 49 track 
and 889k оп 8@ track double sided 


discs. It appears to Бе fully 
compatible with Acorn's DFS, 
faultlessly saving and loading 


programs, data апа memory dumps. We 
nave been able toó interchange without 
difficulty, single density discs on a 
variety of disc drives and with three 
different filing systems in use, 
including Acorn DFS and Microware DDFS. 
In timing tests, the DDFS was 
marginally slower at loading Wordwise 
files from double density discs than 
from single density discs, but Basic 
programs were up to 30$ faster at 
loading from.double density discs as a 
result of a process called 
interleaving. 


The system worked reliably during 
our tests, allowing all the normal 
operations with discs to be carried 
out. There would appear to be few, if 
any, disadvantages with the Microware 
system. It immediately doubles the 
storage capacity of all normal disc 
drives (including AMS 3" drives). The 
system will read and write standard 
Single density discs with no apparent 
problems, though tne Acorn filing 
system itself is not very 
sophisticated. 


KENDA PROFESSIONAL DMES 

The first thing you notice about 
this system, is that the whole 
controller is neatly encapsulated in an 


epoxy resin unit including the disc 
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encountered with this unit, which 
simply plugs into the disc controller 
socket, and seemed quite stable. The 
ribbon cable coming from the unit plugs 
into one of the ROM sockets in place of 
the usual DFS chip. This needs a little 
care as the plug does not fill all the 
pin connections, and the ribbon cable 
runs over adjacent ROMs. 


Like the first system reviewed, the 
Kenda Professional is a complete disc 
upgrade. It is accompanied by а high 
quality manual, that is both well 
written апа well produced, and a 
separate utilities disc. This system 
takes up no user memory, since it 
contains its own 2k workspace. Thus 
PAGE is still set to  &0E00, enabling 
the longest cassette based programs to 
be loaded and run, and of course, 
giving you an extra 2k of memory for 
your own programs compared with other 
disc systems for the BBC micro. 
upgrade, 


Unlike the Microware 


Kenda's system is completely different 
to Acorn's, and is based on the widely 
used CP/M system, using CP/M commands. 
This is a much more sophisticated 


System as disc blocks are dynamically 
allocated, both for files and for the 
directory, as required. Files сап 
always be extended, unless the disc is 
full, which is also the only limit on 
the size of the directory. This is both 
efficient and flexible, and allows a 
disc to store a°large number of very 
small files or fewer much larger files. 


Moreover, the system treats both 
Sides of a double sided drive as being 
continuous, so that once you have used 
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up all the space on one side the system 
continues automatically on the other. 
In fact, you won't usually know (or 
care) which side of a disc a file is 
Stored on (and it may be on both!). 
This also means that a single file on 
an 80 track disc could extend up to 
nearly 8006 іп size! The Kenda 
Professional MDFS automatically selects 
Single or double density modes when 
reading discs. You can still access 
Acorn format: discs by using the GROW 
utility on the supplied utilities disc, 


and likewise, you can make a file. 


readable to an Acorn DFS, by using the 
SHRINK utility. The formating procedure 
is also a disc based utility. 


The Professional MDFS has its own 
set of commands based on CP/M but all 
standard Acorn commands сап be 
recognised, and those which have ап 
equivalent MDFS command will ге 
executed. Other Acorn commands will be 
ignored but по errors will be 
generated. Because of the disc filing 
structure being used, Acorn commands 
like *COMPACT are quite unnecessary. 


The Professional  MDFS offers a 
number of facilities not available with 
Acorn format discs. Any bad sectors 
encountered are automatically marked 
and avoided. Files that are initially 
erased сап still be found and 
recovered. It is possible to use both 
the disc filing system and another 
filing system (зау | cassette Or 
Teletext) together without switching 
between the two. 


The Professinal MDFS comes with a 
Clear concise manual, and the whole 
system was very pleasing to use. 
Although the controller became rather 
warm in use, no problems меге 
encountered. 


To summarise, The Kenda Professional 
MDFS will, like the Microware system, 
double the capacity of any disc drive 
it is used with, апа offer a filing 
System with much more sophistication 
than will any system based on the Acorn 
DF5. It also has the significant 
advantage of saving the disc user 2k of 
memory compared with other disc systems 
currently available, The major 
drawback, of course, is that Acorn 
format discs cannot be read or created 
directly but must be converted to and 
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format using the 
supplied disc-based utilities. 


CONCLUS IONS 


Both systems performed well, and the 
only way to choose between them is to 
look at the facilities which they 
offer. If you want Acorn compatibility 
with up to 128 files (version 0.98) 
within the constraint of an Acorn style 
filing system, then the Microware 
system should be the choice. However, 
if Acorn compatibility is not very 
important to you, and you want an 
intelligent system which takes up no 
user RAM, and handles files dynamically 
using CP/M type file commands, then the 
Kenda system may be the one to choose. 
This is particularly good for those 
with Significant file handling 
applications. There are two points to 
bear in mind if you are going to buy 
either one of these upgrades: 

m Neither of the two systems 
reviewed allowed a ROM expansion board 
to be plugged in at the same time, 
except for the Watford Electronics 
board, although we believe that Kenda 
are modifying their system so that an 
ATPL board may be installed together 
with tne MDFS. 

25 Acornsoft discs with disc 
protection could not be read by either 
of the double density controllers 
reviewed even іп the single density 
mode, as the protection involves direct 
access to the 8271 controller chip. 


we have been testing version 0.9 of 
the Microware DDFS. Version 0.98 will 
be available early in 1984, and will, 
it is claimed, simulate the registers 
of an 8271, in such a way as to allow 
protected Acorn discs, of the kind 
currently produced, to Бе read. We 
understand that tnis version will also 
allow a maximum of 128 files per disc 
surface. Microware have told us that 
version 0.98 will be supplied free in 
exchange for version 0.9. A version 1.0 
is also planned which will contain its 
own RAM, thus releasing about 2k of 
user memory for programs. No firm date 
is available for the release of this 
enhancement. 


We | would like to thank both 
Microware and Kenda for their help апа 
cooperation while | compiling this 
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This program not only produces an 


DANCING LINES 
by David A. Fell 


interesting graphics display, but is very 


interesting in showing how a sequence of random numbers generated in Basic is not 


really random at all. 


This is а short program that 
produces an attractive screen display 
by simulating the bouncing of two 
points around the screen ас random, 
with a variable coloured line drawn 
between the two. An apparently random 
sequence is built up on the screen, and 
then erased in the same order as it was 
created. Once the screen has ‘emptied’, 
the program repeats, producng a 
different sequence for each screen. 


RANDOM NUMBERS 


The two key facts that enable the 
program .to precisely erase the lines, 
without any co-ordinates being stored, 
are the plotting technique used, and 
the repeatability of Ваѕіс'ѕ random 
number generator. This is not a true 
random number generator, but produces 
what are termed pseudo-random numbers. 
This means that the numbers that it 
produces may appear random, and indeed 
will satisfy most tests for randomness, 
but are actually produced by а fixed 
set of calculations which can be made 
to repeat. Whenever a 'seed', or 
starting point, for the random number 
generator is entered, it is possible to 
regenerate а particular series ОЁ 
'random' numbers. 


To seed the Beeb's random number 
generator, you use the form: 

X-RND (N) 
where N isa negative number. Ав ап 
example, try this: 

PRINT RND(-1 406) 
When  'seeding' the Basic random number 
generator, the value that RND returns 
is the same as was passed to it, in 
this case -100. Once a negative value 
has been passed, the generator is 
'seeded', and thus now predictable. 
Moreover, if you now type: 

PRINT RND(149) 
for example, immediately after seeding 
the generator as above you will always 
get a 9 printed, which is always tne 
first value to be returned in the 
particular sequence chosen. 
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PROGRAM NOTES 


In the program, line 120 of the 
program creates a random seed, and this 


is used at lines 130 and 150 to start 
the generator off producing the same 
sequence of numbers. Lines 140 and 160 
call the procedure to produce a screen 
of lines, and both the calling and 
seeding sections are contained within а 
REPEAT ... UNTIL loop that cycles 
endlessly, or until Escape is pressed. 


At the start of tne program, line 90 
turns off the cursor, as this only 
serves as a distraction in graphical 
displays. Line 100 effectively turns 
off the flashing colours, which are 
inevitably going to be generated as a 
result of both the usage of 
exclusive-or plotting and the random 
colour range that is selected, апа 
which would appear unattractive if left 
flasning. This is achieved ру setting 
the  'mark' period to zero, and thus 
leaving all of the flashing colours 
permanently іп only опе of their two 
possible colours. 


The display itself is produced by 
the procedure PROCpicture. Lines 210 to 
280 generate random starting points and 
random increments for the two ends of 
the line. The increments are fixed во 
that they will start the two ends 
moving off in opposing directions. The 


FOR ... NEXT loop starting at line 290 
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will determine how many lines will be 
drawn for each pattern, and adjusting 
the value of 500 to, say, 100 will give 
a shorter pattern. 


The procedure uses the exclusive-or 
GCOL plotting option (selected at line 
309), and the random colour. 
Exclusive-or plotting has the unusual 
property in that, if any graphics with 
the same colour and co-ordinates are 
plotted an even number of times, then 
they 'cancel' out, leaving whatever 


10 REM Program Dancing Lines 
20 REM Author David A. Fell 
30 REM Version v1.2 
40 REM BEEBUG JAN/FEB 1984 
50 REM Program subject to Copyright. 
60 : 
78 ON ERROR GOTO 479 

80 MODE 2 

90 VDU23;11,0;0; 0; 0 
100 ЖЕХ9 

110 REPEAT 
120 SEED$-ABSRND 

130 AS=RND (—-SEED$3) 

140 PROCpicture 

150 A%=RND (—SEED$) 

160 PROCpicture 

170 UNTIL 

180 END 

185 : 

190 DEF PROCpicture 
200 X1%=RND (1279) 

219 Y1%=RND (1223) 

220 X2%=RND (1279) 

230 Y2%=RND (1823) 
240 XIlS-RND(4)*5 

250 YI1S=RND(4) *5 

260 XI2$--RND (4) *5 

270 YI2$--RND(4)*5 

280 FORI$-OTO500 

290 GCOL3,RND(16)-1 

300 MOVE Х1%,Ү1% 

310 DRAW Х2%,Ү2% 

320 IF Х1%%ХІ1%>1279 XI1%=—RND (4) *5 
330 IF Х1%%Х11%<й0 XI1%=RND (4) %5 


BIRD SOUNDS - I.Evans 


happened to be on the screen before. As 
we start of with a blank screen, and 
all plotting is done twice, at the same 
co-ordinates, апа in the same colour, 
the net result is that there is nothing 
left on the screen by the end of the 
suequence. 


Lines 330 to 44@ are concerned with 
the mechanics of bouncing a point 
around an enclosed rectangle (in this 
case the screen). 


340 IF Ү1%+ҮІ1%>1023 YI1%$=—RND (4) *5 
350 IF Ү1%+Ү11%<0 YI1%=RND (4) *5 
360 IF Х2%%Х12%>1279 XI2%=—-RND (4) *5 
370 IF X2$-XI2$«0 XI23=RND (4) *5 
380 IF Ү2%+Ү12%>1023 YI2$--RND(4)*5 
390 IF Ү2%%ҮІ2%<0 YI2$-RND(4)*5 
400 Х1%=Х1%+Х11% 
410 Yl$-Yl12-YI1$2 

420 Х2%-Х2%%ХІ2% 

430 Ү2%-Ү2%4Ү12% 


oo оо о9 оо 
Ho H 


li 


470 ON ERROR OFF: MODE 7 
480 IF ERR<>17 REPORT:PRINT" at line 


490 END 


Here is a short program to generate bird-like Sounds. It can of course be 
modified to taste - although the duration parameter in the SOUND statement has to be 


3 for best effect: 


10 ENVELOPE 1,1,5,5,-10,30,30,30,50,0,0,1,100,100 


ВЕЕВОС 


20 FOR I-0 ТО 1909:SOUND 1,1,138+RND (49) , 3: NEXT 
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ACHINE CODE GRAPHICS (16K) 
by Peter Clease 


Although the BBC micro is capable of excellent graphics when programmed in Basic, 
any form of animation can seem very slow and uneven beacause of the time taken to 


change the display. The solution to this problem, and one which has been 


successfully in 
principles of machine code graphics. 


In this series we will show you how 
the screen area of memory is structured 


for the different modes and how to 
define your own mutli-coloured 
characters (often called ''sprites' or 
'slabs'). We will also describe the 


techniques which allow these characters 
to be moved swiftly and smootnly around 
the screen. Although the main routines 
for doing this will mainly Бе іп 
machine code, we will also snow you how 
to incorporate these routines in Basic 
programs as well. Some knowledge of 
machine code will help in understanding 
the routines but you certainly won't 
need to be an expert. 
Machine Code Graphics is not a 
simple subject, though the results as 
Seen in many commercial computer games 
can be outstanding. This month we will 
look at the basic screen structure and 
the definition of characters in mode 4 
(easy because only two colours are 
possible) before moving on next month 


to multi-coloured characters in modes 
1 and 2 and 
techniques. 


later to animation 


INTRODUCTION 

To create graphics, the computer 
looks at numbers stored in the area of 
its memory known as its 'screen memory' 
and converts those numbers into pixel 
patterns and colours. A pixel is the 
smallest plottable point possible in 
any mode. To create graphics then, all 
the programmer has to do is to store 
the numbers corresponding with tne 
image he wants to produce in that area 
of memory. To produce graphics in Basic 
in a Similar way would be extremely 
slow, and hence a range of graphics 
commands and definable characters are 
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used very 


many of the commercial computer games available, is to use machine 
code. This month we start a series of articles which will 


introduce the basic 


available for this purpose, and these 
themselves are produced by machine code 
Subroutines. 


One consequence of writing programs 
that directly access screen memory (or 
any other part of memory) is that such 
programs will not work across the Tube. 
In many cases commercial software for 


the BBC Micro has ignored this 
potential disadvantage in favour of the 
benefits in increased speed that 
result. 

If you would like to see the Basic 


version of a machine code program that 
plots a short line on the screen, type 
in the following program and run it. 


10 MODE4:VDU23;11,0;0; 0; 9 
20 2&5890=255 

30 ?&5808-255 

40 ?&5819=255 

52 REPEAT UNTIL FALSE 


If no line is visible at the top of the 
screen then you may need to move this 


down one line by using *TV254,1 (you 
may find this unnecessary or that 
values other than 254 are better 


depending on now your TV or monitor is 
adjusted - see page 23 іп the User 
Guide), so that the top line of the 
display is clearly visible. The first 
line of the program selects mode 4 and 
Switches off the cursor before poking 
tne value 255, coding a solid white 
line, into tnree consecutive positions 
across, the screen. It can be seen that 
the memory locations are not 
consecutive. The reason for this will 
become apparent” when we discuss the 
Screen structure in detail. 


The machine code equivalent of the 
above is as follows: 
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10 FOR РА55-0 TO 3 STEP 3 

20 P$-&2009 

30 [OPT PASS 

40 .start 

50 LDA #22:JSR &FFEE:LDA #4:JSR &FFEE 
60 LDA #255:STA &5800:STA &5808:STÀ 


70 RTS 

80 ] 

90 NEXT PASS 

100 TIME-Q:REPEAT UNTIL ТІМЕ>400 
118 CALL start 

120 VDU23;11,0; 0; 0; 0 
130 REPEAT UNTIL FALSE 


As is always the case on tne BBC micro, 
tne assembler code is embedded within a 
Basic program. In this particular 
instance ме are loading at 82000. The 
first line of machine code changes to 
mode 4 Бу executing the equivalent of 
VDU22,4, and the second line stores the 
values that produce the displayed line 
at the appropriate memory locations. A 
time delay has been incorporated so 
that you can see the assembler listing 
of the machine code before the routine 
itself 15 called. Press down Shift and 


15 


| 


Layout of pixels within a character block. 


Depending on the mode, each byte of 
Screen memory represents either two, 
four ок eight pixels horizontally (see 
the sections on the modes for detail 
about tnis). The screen's bytes are 
always arranged vertically down 
character block columns. The diagram 
below demonstrates this for mode two. 
From this you can see that each 
character block is made up of 4 bytes 
horizontally, and thus each byte 
represents two pixels in this mode. 
Screen memory starts from &3000 in this 


Ctrl together if you want to keep this mode. The other modes have a similar 
on the screen for longer. structure. 
SCREEN MEMORY STRUCTURE Byte Map for Mode 2 

The basic screen structure in any of Character Block 1 Block 2 


the graphics modes is that of lines of 
character blocks running across the 
Screen. 


[ р» 
(9 
GA 
pue 
со 


gn 
WW 
Q 
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(994 (99) 

Q 
p_i pm; 
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199) 
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lst character 


тү] 


шыкшыт S 


It is important to note the increase 
ыы іп value from the bottom pixel of опе 
Tavo ob eha rae ter bike An AT toak character block to the top pixel of the 

а 40 character mode. (modes 1 and 4) block below, (8261) as you will see 
later. You can see that byte addresses 
change by eight as you move 
horizontally. Since each byte codes for 
two pixels (in this mode), this means 

Each character block is always made that by moving a character one byte to 
of a combination of pixels arranged ав the right, you move it two pixels, and 
an 8 by 8 matrix. this is the minimum increment for a 
character. Later, ways will be shown of 
moving characters one pixel only. 
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Screen Memory 


All at 
&7FFF 


0 
1 
2 
3 
4 
5 
6 
7 


The table above shows the start апа 


end addresses of screen memory for the 
different modes. 


Of these, only modes 0, 1, 2, 4 апа 
5 аге graphics modes. This series does 
not deal with modes 3, 6 and 7 which 
have limited grapnics facilities (user 
defined characters in modes 3 апа 6, 
Teletext graphics in mode 7). 


The best way to deal further with 
machine code graphics is to examine 
each mode on its own, now that you know 
about the screen structure. 


MODE 4 

We will start our detailed look at 
the different modes with mode 4. This 
will work іп lék of memory, the 
characters are large enough to see 
clearly and, with only two colours 
available at any опе time, is 
reasonably straight-forward. In this 
mode screen memory starts ас &5800. It 
takes just one bit to code each pixel 
for tnis mode: 

Bit value = 0 colour = black 

Bit value = 1 colour = white 
The colours could be changed it 
required by using the VDU 19 command. 


| 


il 
Н 


A 


Eight bits are found in each byte, 
or memory location, and so each memory 
location codes 8 pixels. Since 
character blocks consist of 8 by 8 
pixels, а whole character in this mode 
is coded by eight consecutive bytes of 
memory. Each screen line consists of 40 
characters, equivalent to 8 ру 4$ 
(320) bytes of memory. Thus to move 
horizontally Бу опе character the 
Screen memory address changes by 8 апа 
to move vertically the screen memory 
address changes by 320. You may find it 
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the start address of the first 
character in each row and each column. 


Each byte codes just one line in a 
character block as іп the following 
example: 


Each bit can be a '@' or 'l'. . This 
sequence would give а line of pixels 
like this: 


Thus poking the binary | number 
10110011 into memory location 65800 
will give tne above pattern as a line 
in the top left memory location. Try it 

MODE 6 

28580072179 
The value 179 is the decimal for tne 
binary number 10110011. This could 
equally well have been put in hex as 
&B3. | 


An example, the plotting оға space 
invader, should make the use of this 
mode clearer. Draw the invader in an 8 
by 8-grid. 
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line to binary and 


Now convert each 
thence to decimal: 


Line 1 00000000 = 2 (decimal) 
Line 2 00011000 = 24 (decimal) 
Line 3 10111101 = 189 (decimal) 
Line 4 11111111 = 255 (decimal) 
Line 5 00111100 = 60 (decimal) 
Line 6 00100100 = 36 (decimal) 
Line 7 01000010 = 66 (decimal) 
Line 8 10000001 = 129 (decimal) 


Here now is the Basic version of the 
program that will draw the space 
invader on the screen in the top left 
character position: 


18 MODE4 

20 VDU23;11,0;0;0;0 

30 FOR I$-0 TO 7 

40 READ bytevalue 

50 ?(&5820-4I2) -bytevalue 

60 NEXT I$ 

70 REPEAT UNTIL FALSE 

90 DATA 0,24,189,255,60,36,66,129 


We can put the same thing in machine 
code. Here the code has been put in the 
form of two procedures called 
PROCassemble and PROCinvader that could 
be incorporated into any Basic program. 


100 MODE4:VDU23;11,0; 0; 0; 0 
110 PROCassemble 
120 FOR I$-&6ACO ТО &6BFY STEP 16 
130 PROCinvader (1%) 
140 МЕХТ 1% 
150 END 
160: 
1000 DEFPROCassemble 
1010 FOR РА55-й0 TO 2 STEP 2 
1020 Р%-%С00 
1030 [OPT PASS 
1040 .start 
1050 LDY #0 
1060 .loop LDA &70,Y:STA (880) ,Ү:ІМҮ:С 
PY #8:BNE loop:RTS 
1070 | 
1080 МЕХТ РА55 
1090 FOR І%-й2 TO 7 
1100 READ A 
1110 I2?2&70-A 
1120 NEXT I$ 
1130 DATA 2,24,189,255,60,36,66,129 
1140 ENDPROC 
1150 & 
1160 DEFPROCinvader (pos£) 
1170 ?&80-pos$ MOD 256:?&81=pos% DIV 2 
56 
1180 CALL start 
1198 ENDPROC 


tne decimal 
produce the space 
invader. The data is poked into the 
locations from $&70 to &77 and the 
machine code stored at &С00. In effect, 
the data is a character stored from 570 
instead of the usual area of memory 
reserved for user 


The data contains 
numbers tnat will 


from &С@@ to «СЕКЕ 
defined characters, 


Since the bytes are arranged as 
groups of 8, running downwards, the 
data at the end of the | program 
represents the lines in the character 
from top to bottom. Thus the value of 
the top line is 0, the second is 24 and 
SO оп. То produce your own character, 
work out the lines as we did for the 


Space invader above (using a character 
definer such as that published iu 
BEEBUG №012 No5 will make things 


easier), and then place the data for 
the lines from the top line to the 
bottom in order in the data statement. 


PROCassemble must be called first to 
assemble the machine code ready for 
use. From then ой, writing 
PROCinvader(address) where 'address' is 
a Screen address (between .&5800 апа 
&7FFF), will place a space invader on 
the screen in a corresponding position. 
If you do this, you must make sure that 
the address marks the start of a 
character block оп the screen or the 
Space invader will be split up into two 
Separate parts. In our example program 
the loop from line 120 to 140 puts a 
Space invader in every other position 
in line 16 on the screen. Try working 
out the memory address to put invaders 
in other positions. 


You might also like to try moving 
the invader about the screen. To do 
this you will have to find some way of 
deleting the space invader in опе 
re-displaying it in 


position before 
another. 


Next month we will cover the basics 
of machine code graphics in the other 
modes, including the generation of 
multi-coloured characters. 
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This interesting little utility is 


for those of you who wish to protect 
their own programs by making them 
unusable by anyone who does not know a 
prearranged password. It comes in the 
form of a procedure which must be added 
onto the end of the Basic program to be 
protected. 


To use it, first type the procedure 
in and save it away оп cassette or 
disc. Then 'spool' it out to cassette 
or disc under a different name e.g. 


*SPOOL LOCKSP «return» 
LIST «return» 
*S POOL <return> 


This now means that you have a 
version of your program saved, ready to 
be *EXECed onto the end of your program 
to be protected (See User Guide for 
full explanation of *SPOOL and *EXEC). 


When that has been done, load in 
your Basic program (make sure that no 
line numbers exceed 32000). Then type 
«ЕХЕС LOCKSP and wait for the 
protection program to load. This has 
now been joined to the end of your 
program. | 


To lock the program, type PROCLOCK, 
and type in a password when prompted. 
The password may Contain any characters 
and be up to 256 characters in length, 
but you will have to remember tne 
password you choose, so keep it short 
and meaningful. Once the password has 
been entered, the machine will pause, 
while it scrambles your program, 
changing the bytes of code. When that 
is completed, LIST your program апа 
look at the code - it should make 
horrific reading! 


SAVE this scrambled version away and 
use it as your main copy (although it 
cannot be RUN in its scrambled state). 


йеп you want to use the program, 
Simply load it in and type PROCLOCK. 
in the same password as 
program will be 
If you type in the 
the program will Бе 


Then type 
before апа your 
'un-scrambled'. 
wrong password, 


BEEBUG 


Jan/Feb 1984 


| by P. Boardman 


scrambled again and at this stage the 


program cannot be recovered, so take 
care not to forget the password. 


Note that  &Cl at line 32090 
represents the length (plus one) of the 
LOCK procedure and is included in order 
to prevent the LOCK procedure itself 
being scrambled! Do be careful to type 
the procedure in EXACTLY as listed, 
otherwise  PROClock itself mey become 
scrambled. This will produce error 
messages, and program recovery will not 
generally be possible. 


You can try out the LOCK procedure 
by typing in the whole program listed 
below. Then proceed as follows: 


LIST 
RUN 
PROClock 
LIST 
PROClock 
LIST 

RUN 


Before entering PROClock the first time 
the program should LIST апа RUN as 
normal. After locking the program, LIST 
will display the scrambled version. 
Typing PROClock a second time should 
now unscramble the program, and you 
should be able to LIST and RUN the 
program as before. 


@ REM EXAMPLE PROGRAM 
1 PRINT "THIS PROGRAM IS UNLOCKED" 
2 END 
32000 DEFPROCLOCK 
32010 INPUT"PASSWORD ",KEYS 
32020 І%-РАСЕЗЗ 
32030 КЕРЕАТ 
32040 FORX$-I$-1 TO 1%-4421% 
32050 Y$-&1F AND (ASC MIDS(KEYS,X$ MOD 
LEN KEYS,1)) 
32060 ?X$-(?X$ AND вЕй)%((?Х% AND &lF) 
EOR Y$) 
32070 NEXT 
32080 1%=Х%+3 
32090 UNTILXS>TOP—&Cl 
32110 ENDPROC 
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Reviewed by Robert Barnes 


PROGRAM TRANSISTORS' REVENGE 


SUPPLIER: 5ОЕТ5РОТ 
PRICE : £6.95 
RATING : **% 


This very novel game, written in 
machine code, is set within an 
imaginary computer whose insides are 
displayed on the screen. This shows the 
CPU as the heart of the computer, with 
all its connecting data lines radiating 
out to the sides of the screen. 


The rest of the computer's more 
colourful components (resistors, 
transistors etc) are attacking the CPU, 
which you have to protect by firing 
pulses of electricity down the data 
lines. This will destroy any component 
moving along the data line selected, 
out if a component should reach the 
CPU, then a life is lost. There is also 
a 'zap' key, which destroys all the 
attacking components on the screen. 
This can only be used once every 20 
Seconds. 


This somewhat fanciful game is 
surprisingly good to play. The graphics 
and sound are to a high standard, апа 
the game represents good value for 
money. 


PROGRAM : NOC-A-BLOC 
SUPPLIER: VIRGIN GAMES 
PRICE 27,095 

RATING : ***x 


This new release from Virgin Games 
is an adaptation for the BBC micro of 
the arcade game Pengo. In this game the 
player is situated in the middle of a 
room filled with blocks which may 
elther be vapourised or moved with a 
pushing action. The room also contains 
а number of characters called Spods, 
which must not be touched. These Spods 
must be destroyed by using one of two 
methods. The first, and best, method is 
to Squash them between two blocks but 
they can also be destroyed by Stunning 
them first. 


The game increases in difficulty 
with each new Screen, as the number оғ 
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Spods also increases each time. То 
achieve a really good score, you need 
to try and position three special 
blocks in a line, and you gain a bonus 
by finishing a screen quickly. The need 
to think quickly and respond to a 
continually changing situation provides 
an interesting game. 


VORTEX 


PROGRAM : 

SUPPLIER: SOFTWARE INVASION 
PRICE : £7.95 

RATING : **** 


Vortex is yet another Very cleverly 
written game from Software Invasion, 
who are really building a high 
reputation for themselves in the 
writing of graphical games for the BBC 
micro. This game use high resolution 
graphics and is in black and white. 


AS you fly through space, with alien 
spacecraft attacking you from all 
sides, you must deploy laser torpedoes 
to destroy the aliens, while trying to 
avoid the asteroids and space debris 
which hurtle towards you. The feature 
that makes this game stand out is the 
way in which objects appear to get 
larger as they move towards you, only 
to shrink again as they move away (this 
seems to be almost a trademark of 
Software Invasion). [It's called 3D - 
Еа. | ` | 


This game is a very good example of 


its kind but suffers perhaps from the 
absence of any colour, while the game 
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itself offers little in the way of 
variety. 


PROGRAM : PINBALL ARCADE 
SUPPLIER: KANSAS CITY SYSTEMS 
PRICE : £10.35 

RATING {ЖЕКЕ 


Pinball Arcade is an excellent new 
game from Kansas who have recently 
turned from producing software solely 
for the American Tandy TRS80 computer 
to producing programs for the Beeb. 
With Pinball, the screen displays a 
faithful representation of а pinball 
macnine. You have contol over two 


flippers, which move just like the real 
thing. Colour is used to good effect, 
although it is a pity that the ball is 
white, as it can sometimes be difficult 
to see. 


The feature of the program that 
makes it so good, is the facility to 
create your own design of pinball 
machine. There are six screen pages of 
shapes which can be placed anywhere оп 
the board, and the layout can be saved 
to cassette for later use. The game nas 
a lot of facilities, which unlike many 
other games, are not just gimmicky. The 
game is very fast, with such clever 
features as a ball that actually 
changes speed, just as with a real 
pinball machine. 


This is a game which I am sure most 
people of any age will like. Mike 
Chalk, who wrote this program, has 
produced a winner. Pinball is highly 
recommended, even at its relatively 
high price. 


EDUCATIONAL SOFTWARE 


Reviewed by John Perkins 


John Perkins reviews one of a se 
Acornsoft. 


FACEMAKER 
Acornsoft/ASK 
Price: £9.95 


Facemaker is a program which allows 
a child to build up an 'identikit' 
picture of a person. Тһе instructions 
are clear, easy to understand and lead 
the user though the program in а 
straight-forward manner without undue 
repetition. I found the pictorial 
prompts, for the use of the space bar, 
and for incorrect responses, novel and 
imaginative. The length of some of tne 
instructions апа the vocabulary used 
would seem to put its main use in the 
upper half of the stated age range of 5 
to 12, and even then, some of the terms 
. would need explanation. 


Sufficient opportunities are given, 
while building up the face, and on 
completion, to make changes and to 
experiment. The final results, 
however, can be a little disappointing 
since it is difficult to produce а 
result resembling what was in ones 
‘mind's eye', and one does get а 
certain feeling of sameness about the 
faces after a while. It is even quite 
difficult to distinguish between the 


BEEBUG 


Jan/Feb 1984 


t of 10 educational programs now being marketed by 


styles аге 


sexes if longer hair 
selected for the men! 


The | documentation is simple but 
adequate. І am not totally convinced 
about some of the suggestions for 
classroom use but it could provoke some 
discussion and observation as well ав 
being a vehicle for art-work.  A.5.K. 
claim their "programs are designed, 
above all else, to make learning fun". 
Certainly the children I tried it out 
on found it fun to use, greeting their 
results | with hoots of laughter, 
although I ап not sure that tney were 
actually learning much. In all, I 
would judge it as light-weight fun with 


limited classroom application. 
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IE TELETEXT MODE (PART 4) 
by Mike Williams 


To conclude our series on the Teletext Mode, we describe this month a collection 


of useful procedures for creating Teletext Mode displays including one for large 


size digital displays. 


The Teletext Mode is ideal for all 
manner of displays, particularly as the 
front page that introduces а program. 
All the colours are available, text may 
be in single or double height and there 
is a complete range of graphics 
characters аз well. In addition, 
memory usage 15 unlikely to cause any 
problems, as the screen display uses 
only 1k of memory. If you generate 
Teletext displays for more than one 
program, you soon begin to realise that 
the same requirements keep on recurring 
and a small library of instant 
procedures undoubtedly saves time іп 
the long run. 


This month I propose to describe a 
number of procedures that I have found 
to be useful on many occasions when 
generating Teletext screens. Before 
describing them in detail there are a 
few general points to note first. For 
maximum flexibility, most of the 
procedures will create a display in any 
position of the screen. This position 
always refers to the visible display, 
and any control characters occupy 
preceding positions. Make sure you 
leave room for these. If any procedure 
refers to an area of the screen, then 
the reference position is always the 
top lefthand corner. Most of the 
precedures specify a colour (or 
colours) which is always specified as a 
value in the range 0 to 6. This is 
converted to the range 129 to 135 
(text) or 145 to 151 (graphics) within 
the procedure itself. 


Finally, if you try out some of the 
examples given in the text, you may 
occasionally find odd graphics 
characters appearing. This is usually 
because the prompt character '>' has 
appeared in a position where it is 
interpreted as a graphics character. In 
complete programs this can be easily 
avoided, and is often the reason for 
the "КЕРЕАТ UNTIL FALSE' loop that you 
Will see at the end of several of the 
example programs in this series. 
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If you type the procedures in as 
they are introduced, then you will be 
able to test them as we go along. 


GENERAL TELETEXT PROCEDURES 

The first procedure allows any text 
message to be displayed in any colour 
and in any position on the screen. 
This is defined as follows: 


1000 DEF PROCmsg1 (msg$ ,c$,x$,y£) 
1010 PRINT TAB (x$-1,y£) ;CHRS (1294c2) ¿ms 


g$; 
1020 ENDPROC 


This will display the text msg$ on the 
Screen, in colour c$ and in a position 
given by x$ and y$, where y$ is the 
line number and x$ is the position on 
the line. Remember that the top line on 
the screen is always referred to ав 
line 0 апа that likewise, the first 
character on a line is in position 0. 
For reference, a Teletext Mode line is 
40 characters long (0 to 39). You сап 
test this. procedure as soon as you have 
typed it in. Try typing as follows: 
CLS 
PROCmsg1 ("ВЕЕВОС",2,16,10) 

You should see the word "BEEBUG" in 
yellow, displayed on line 10 апа 
Starting in position 16. The "CLS" 
command is not strictly necessary, but 
will ensure that the screen is cleared 
of any existing information first. 
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When using the procedure, remember 
that a control code only applies to the 
line of the screen on which it is 
placed. If your text overflows onto 
the next line, it will normally default 
to white text on the second line. 


The second procedure is similar, but 
produces double height text. In this 
version, the top and bottom halves of 
the characters are the same colour, but 
you could rewrite it with two 
parameters с1% and c2% to allow the 
possibility of the top half (с1%) and 
bottom half (c2%) having different 
colours. 


1100 DEF PROCmsg2 (msgS$,c$,x$,y$) 

1110 LOCAL i$ 

1120 FOR i$-y$ TO y$-*l 

1139 PRINT ТАВ(х%-2,1%);СНВ5(129%с%); СН 
R$141;msg$; ` 

1140 NEXT 1% 

1150 ENDPROC 


Note that this time, the text will be 
oreceded Бу two control characters. 
Remember too, that with both these 
procedures, the text,  msg$, could 
itself contain control characters. In 
this way the procedures could, for 
example, be used to produce flashing 
text. For example, try typing: 
CLS 
PROCmsg 2 (CHRS1 36+"BEEBUG", 2, 15,19) 

This will not only display "BEEBUG" in 
double height, yellow letters but the 
text will be flashing because of the 
extra control characer added onto the 
front of the word. For this reason, the 
position of the text on the line has 
been given as 15, instead of 16 as in 
the previous example, in order to leave 
room for the extra control character 
and so have the text displayed in the 
same position as before. The ода 
character that appears immediately 
after "BEEBUG" on the bottom of the two 
lines is merely the bottom half of the 
normal prompt character '>', which is 
also affected by the 141 control 
character. Just press Return before 
continuing. 


COLOURED BACKGROUNDS 
The next procedure is concerned not 
with text, but with graphics and allows 


any number of lines on the screen to be 
given a coloured background: 


BEEBUG 


1200 DEF PROCback(c$,yl$2,y2 


Jan/Feb 1984 


б) 
1218 LOCAL i$ 

1220 FOR 1%-у1% TO y2%:VDU31,9,13,145+c 
%,157:NEXT 1% 

1238 ENDPROC 


This will colour the background from 
line yl% down to line y2$. If yl$ and 
y2$ have the same value, then just that 
one line will be given a coloured 
background. You might also decide to 
protect the colouzed background by 
redefining the text window as we have 
done several times in previous articles 
in this series using the VDU28 command. 
Since this procedure 15 only sending 
control characters to the screen, and 
not text, the use of the VDU command at 
line 1220 is more concise than the use 
of PRINT TAB. You can try out this 
procedure by typing: 

CLS 

PROCback (0,9,9) 

«return» 

PROCback (3, 10,19) 
You should find that the top 10 lines 
of your screen have a red background, 
and the next 10 lines have а blue 
backgound, leaving the bottom 5 lines 
as normal. The extra Return is needed 
in order to see the next line as уой 
type it in. 


CLEARING LINES 

Now for a procedure that at first 
may seem a little surprising. It is 
called PROCblank and puts a line of 
spaces anywhere оп the screen. 
Although many Teletext Mode displays 
serve just aS an introduction to a 
program, in more Serious applications, 
such as word processing, stock control, 
file handling etc, a formatted screen 
in Teletext Mode may be the main 
display. Іп such cases, it is often 
necessary to display, cnange and remove 
text іп various positions on the 
screen. Different text messages will 
likely be of different lengths so that 
you can never rely on one message 
neatly replacing another. Instead, 
PROCblank can be used to wipe out one 
message first, by painting the relevant 
positions with spaces. The procedure is 
quite short: 


1300 DEF PROCblank(x$,y$,f$) 
1310 PRINT TAB(x%3,y%) ;SPC(£%) 3 
1320 ENDPROC | 
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A version of this procedure was used in 

the LINK utility program last month. 

Its use is also illustrated in the 
program TEXTED later in this article. 


LINES AND BOXES 

The next procedure 
horizontal line on the screen, опе 
graphics pixel іп width, by using the 
graphics character with code 172. 


will display a 


1400 DEF PROCline(c$,xl$,x22,y2) 

1410 LOCAL i$ 

1420 VDU31,x12-1,1454c2 

1430 FOR i$-x1$ TO x22:VDUl72:NEXT i$ 
1440 ENDPROC 


As in the other procedures, c% defines 
the colour and y$ specifies the line on 
the screen. The line starts in position 


xl% and finishes in position x22 on 
that line. 
Finally, І have included a somewhat 


longer procedure called PROCbox, which 
can make Teletext displays look very 
professional. Using Teletext | Mode 
graphics, this will draw a rectangular 
box of any size and in any position on 
the | screen. This can be used to 
enclose text, or provide space for a 
response, or by using several together, 
can present a complete table format on 
the screen. The details of this 
procedure are as follows: 


1506 DEF PROCbox(c$,x$,y$,h$,wW£) 

1510 LOCAL с5,1%,у1% 

1520 у1%-у%4п%-1 

1539 FOR i$-y$ TO у1% 

1540 PRINT ТАВ (х%-1,1%) ;СНЕ5 (145+с%) ; 


1550 IF i$-y$ THEN PRINT CHRS183; ELSE 
IF i$-yl$ THEN PRINT CHR$245; ELSE PRI 


NT CHRS181; 


1560 IF i$-y$ THEN PRINT STRINGS (w%-2, 


CHRS163):7 


1570 IF 1%-у1% THEN PRINT STRINGS (w$-2 


,CHRS249) ; 
1580 IF 1%-у% THEN cS=CHRS235 ELSE IF 
i$-yl$ THEN cS=CHRS25@ ELSE cS=CHRS234 


1590 IF 1%>у% AND 1%<у1% THEN PRINT TA 


B(x£^w2$-2,12);CHRS(145-4c$); 
1600 PRINT TAB(x$t*w$-1,12);c9; 
1610 NEXT 1% 

1620 ENDPROC 


The parameters required are the colour 
(c$), the position of the box (х%,у%), 
апа the height  (h$) апа width 


(м%). 
Various Teletext graphics characters 
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tnen arranged to display a box with 
top lefthand corner in the position 


о, О, 
X$,y$. 


When building up tables using this 


procedure it is 


the 


correct 


important to overlap 
edges of the boxes to achieve the 
effect, and to follow a 


sequence of placing the boxes оп the 


Screen from right to left and top to 
bottom. The use of tnis and several 
other of the procedures is illustrated 


in the following program which shows 
how easily a formatted screen can be 
achieved using just these few 


procedures. 


14 
20 
30 
40 
50 


60: 


1040 
110 
120 
130 
140 
150 
160 
170 
180 
1904 
200 
210 
220 
230 
. 240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410: 
900 
910 


КЕМ Program TEXTED 

REM Version В1.3 08/12/83 

REM Author Mike Williams 

REM BEEBUG Jan/Feb 1984 

REM Program subject to Copyright 


MODE 7 

ON ERROR GOTO 900 

VDU23;11,0;0; 0; 0 

PROCBOX1543, 124,235) 

PROCbox (5,16,4,3,22) 

PROCbox (5,3,4, 3,14) 

PROCbox (5,16,6,16,22) 
PROCbOX(5,3,06,10, 14) 

PROCmsg 1 ("TELETEXT PROCEDURES",2,10,2) 
PROCmsgl ("Procedure",2,5,5) 

PROCmsg1 ("Function",2,20,5) 

PROCmsgl ("msgl",0,5,7) 
PROCmsgl("Single height text",0,18,7) 
PROCmsg1 ("msg2",J,5,9) 

PROCmsgl ("Double height text",90,18,9) 
PROCmsgl ("back",0,5,11) 

PROCmsgl ("Paint background",@,18,11) 
PROCmsgl ("blank",0,5,13) 

PROCmsgl ("Clear a line",0,18,13) 
PROCmsgl ("Line",@,5,15) 

PROCmsgl ("Draw a line",0,18,15) 
PROCmsg1 ("box",@,5,17) 

PROCmsgl ("Draw a Бох",0,18,17) 
PROCback (0,23,23) 

REPEAT 

PROCmsgl("Press Escape to exit",2,16,23) 
2%-ІМКЕҮ (100) 

PROCblank (5, 23,39) 

2%-ІМКЕҮ (1609) 

UNTIL FALSE 

END 


ON ERROR OFF:MODE 7 
IF ЕКК<>17 THEN REPORT:PRINT" at line 


"E RE 


920 
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of the Teletext Mode. With the ideas 
and techniques described in previous 
articles in this series, and the set of 
procedures presented this month, you 
should now be able to exploit more 
fully the potential of the Teletext 


This concludes our series on the use 


Mode when writing your 


own programs, 
and produce attractive screen displays. 


For some further ideas on the use of 
the Teletext Mode, see the article 
‘Large Digital Display in Mode 7! 


elsewhere in this issue of BEEBUG. 


PERATING SYSTE] 


by David A. Fell 


Most of you will probably be aware that *FX@ will return a message which tells 
you which operating system you have. What happens, however, if you wish to write one 


piece of software that will automatically adapt itself to the currently 


installed 


operating system, and even tell if it is running in a Beeb or an Electron? 


Тһе answer 15 provided by means of 
an extension of the negative inkey 
function, implemented Бу  OSBYTE call 
number 129 (681). If this is called 
with -256 (Х-в0й, Y-&FF on entry), then 
the value returned allows tne user to 
check and’ see what operating system 
version is active in any machine. The 
following function could be adapted to 
any program: 


1000 DEF FNos 
1010 LOCAL А%, 
1020 А%-129 
1030 Х%-й 
1040 Ү%-255 
1050 AS-(&FFFFÜÜU AND USR&FFF4) DIV 
&100 
1060 IF А% AND 88000 А%-А% OR 


&FFFF0000 

1070 -А% 
and returns а value indicating which 
operating system is installed. By 


comparing the value returned with the 
values in the table below, you can tell 
which operating system js running. If 
you type the function in and then enter 


PRINT FNOS 


see the result for own 


you Should 
machine. 
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For software to modify itself to tne 
appropriate standards, it merely needs 
to check the value returned, and set a 
flag accordingly. This can have real 
applications іп telling the American 
operating system apart from the British 
one, because the American Beebs have 
less lines of display on each screen, 
and thus software would need to adjust 
its output so as not to scroll data off 
the screen. Another use could be to 
make software realise if it is running 
in an Electron, and if so, not to use 


Mode 7, as the Electron does not 
support this mode. 
A further way to distinguish 


operating systems is via the value that 
is normally inserted into the  'unused' 
OSBYTE location for OSBYTE 240. If tnis 
is a 'Q', then it is a 'UK' operating 
system; 'l' is currently allocated to 
'USA' operating systems, and it is 
expected that other versions of the 
operating system for other countries 
will have other values here. (For 
example, there is a German version of 
the Beeb being developed, and this may 
well store, say, a '2' at the OSBYTE 
240 location.) 


We are grateful to Acorn Computers 
for the information on which these 
notes are based, although we have not 
been able to test the routine described 
on a current USA MOS. 
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If you want to decipher machine code programs for which the source code is not 


by D. Turner 


available, then you need a disassembler. The program described here will help you to 
restore your own assembler programs, and will also allow you to look at the details 
of machine code games, or the workings of Basic and the Beeb's operating system. 


Machine code programs are usually 
written in a format called  'Assembler' 
in which instructions are represented 
by easy to remember mnemonic. codes, 
labels are usually | simple but 
meaningful English words and variables 
are likewise very readable. 


The assembler, or source code, is 
then converted into machine code by the 
Beeb's built in assembler, the result 
usually being presented as a sequence 
of hexadecimal | numbers апа . hence 
thoroughly unreadable to all but the 
most technically minded expert. 


Occasionally, through some mishap, 
you may find that the assembled machine 
code version is all you have left of a 
particular program. This is where a 
disassembler will come to your aid, by 
converting the hexadecimal code back 
into a fairly readable mnemonic format. 
With a disassembler you can try to 
tathom out machine code games and even 
try disassembling the Beeb's operating 
system or the Basic interpreter. This 
is certainly how some of the more 
detailed technical information about 
the Beeb has been obtained. Оп the 
other hand, no  disassembler can 
precisely reproduce the original source 
code and you will still need to 
interpret some of the output for it to 
make sense. 


The output from the disassembler 
consists of a listing of the program 
being disassembled, with mnemonic codes 
for instructions 
possible. The appropriate hexadecimal 
value is displayed alongside the 


disassembled machine: code, as is ап 
ASCII representation of the bytes that 
have been read in. When being displayed 
here, the ASCII value has the top bit 
removed. This is because some programs 
contain tables in which the setting of 
the top bit indicates the last letter 
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in a word, but the remaining seven bits 
are still the valid ASCII code for that 
letter. The ASCII representation can be 
very helpful in identifying any text 
included as data within the machine 
code program. 


Dissassemblers are quite widely 
available, often as a part of a larger 
package such as the  BEEBUGSOFT  EXMON. 
Here we present a straightforward 
example of a disassembler that will 
cope adequately with most situations. 
This one is in Basic, though some of 
those commercially available аге 
themselves in machine code. You will 
see that a large part of the program is 
made up of all the mnemonic codes 
recognised by the assembler. Туре the 
disassembler into your micro and save 
it away on cassette or disc. | 


To use the disassembler, *LOAD the 
machine code to be disassembled at its 
normal address. Then, reset PAGE to a 
value above (or below) the machine 
code, SO tnat it will not be 
overwritten by Өле disassembler which 
should now be loaded using: 

: CHAIN"DISASS" 
Once the disassembler іс loaded and 
running, it will ask you for the start 
and end addresses of the machine code 
area of memory to be disassembled. The 
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program 
disassembled code is to be displayed 
only on the screen, or in addition sent 
to a printer. 


If you want to examine the Beeb's 
operating system this starts at &С000 
(although the first part of this is the 
default character definitions) and 
continues on up to &FFFF (with a дар 
from &FCOÜU to &FEFF for memory mapped 
devices). The Basic interpreter starts 
at &8000. If you give this as the start 
address to the disassembler, and &BFFF 
as the end address you will be able to 
look at Basic disassembled. You should 
recognise quite quickly the Acorn 
copyright message, which is displayed 
on the screen in response to typing 
'REPORT' when you have just switched 
on, and also a complete table of the 
Basic keywords. 


Note: This program will not disassemble 
sideways ROMs other than the Basic ROM 
since the program is written in Basic. 

10 REM Program: DISASSEMBLER 

20 REM Version: B2.2 

30 REM Author L.P.Baxter 

40 REM ВЕЕВОС Jan/Feb 1984 

50 REM Program subject to copyright. 

60 : 

70 MODE 7 

80 PROCinit 

90 INPUT''''"Enter start address (pr 
есейе by '&' for hex)"'starts 

100 REPEAT 

110 IF startS=""" THEN N$-PAGE ELSE № 
-EVAL (starts) 

120 UNTIL МОТ(М%<0 OR М>&ЕЕЕЕ) 

130 INPUT'"Enter the end address (рге 
cede by "8" for hex)"'finishs 

140 REPEAT 

150 IF finishS="" THEN ES=&FFFF ELSE 
E$-EVAL (finishs) 

160 UNTIL Е%>М% AND Е%<810000 

170 PRINT'"Do you want the listing se 
nt to the printer? (Y/N)"; 

180 REPEAT 

190 Q$-GET AND &DF 

200 UNTIL Q$-ASC"Y" OR Q%S=ASC"N" 

210 VDUOQS | 

220 PRINT''"Press SHIFT for the next 
page when"'"disassembling. Press the SP 
ACE BAR to continue."; 


230 REPEAT UNTIL СЕТ=32. 

240 IF Q$-ASC"Y" ClS-CHRS32:C2$-CHRS$3 
2:VDU2 ELSE C1$=CHR$1 31 :C2$=CHR$134:VDU 
14 

250 PRINT''' 
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260 REPEAT 

272 X$-MIDS$(OPCOS (?N%) ,5,3) 

280 PRINT; N$;C29;SPC3; LEFTS(OPCOS(? 
N$) ,3); 

290 IF XS="IMP" THEN PROCIMP 

300 IF XS="ACC" THEN PROCACC 

310 IF XS="ABS" THEN PROCABS 

320 IF XS="ZRO" THEN PROCZRO 

330 IF XS="IMM" THEN PROCIMM 

340 IF Х5="АВХ" THEN PROCABX 

350 IF XS="ABY" THEN PROCABY 

360 IF XS="IDX" THEN PROCIDX 

370 ТЕ XS="IDY" THEN PROCIDY 

380 IF XS="ZRX" THEN PROCZRX 

390 IF XSz"ZRY" THEN PROCZRY 

400 IF XS="REL" THEN PROCREL 

410 IF XS="IND" THEN PROCIND 

420 IF Х5-"НЕХ" THEN PROCHEX 

430 IF Х5-"А5С" THEN PROCASC 

440 UNTIL М%>-Е% 

450 VDU3,15 

460 END 

470 DEFPROCIMP 

480 PRINTCHRS32; 

490 NS=N%+1 : PROCHEXY (0) 

500 : 

510 ENDPROC 

529. : 

530 DEFPROCACC 

540 РКІМТ;5РСА; "А"; 

550 PROCIMP 

560 ENDPROC 

SUE д 

580 DEFPROCABS | 

590 PRINT;SPC3; &";: PROCBYTE (2) РКІМТ 
CHR$32; : PROCHEXY (2) 

600 ENDPROC 

610: 

620 DEFPROCZRO 

630 PRINT;SEPEC3; &";: PROCBYTE (1) : PRINT 
CHRS32; : PROCHEXY (1) 

640 ENDPROC 

650 : 

660 DEFPROCIMM 

670 PRINT;SPC2;"#&"s : PROCBYTE (1) : PRIN 
TCHRS 323 : PROCHEXY (1) 

680 ENDPROC 

690 : 

700 DEFPROCABX 

710 PRINT;SPC3;"&"; : PROCBYTE (2) : PRINT 
"HA 2 PROCHEXY (2) 

720 ENDPROC 

730 : 

740 DEFPROCABY 

750 PRINT;SEC3; &";:PROCBYTE (2) : PRINT 
"LY" S: PROCHEXY (2) 
760 ENDPROC 
770 : 
780 DEFPROCIDX 
790 PRINT;SPC2;"(&"s;: PROCBYTE (1): PRIN 
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800 ENDPROC 

810 : 

820 DEFPROCIDY 

830 PRINT;SPC2;"(&"; : PROCBYTE (1) : PRIN 
T") ,¥" +: PROCHEXY (1) 
840 ENDPROC © 

850 : 

860 DEFPROCZRX 

870 PRINT;SEC3;"&"; :PROCBYTE(1):PRINT 
"X"; $ PROCHEXY (1) 
880 ENDPROC 
890 : 

900 DEFPROCZRY 

918 PRINT;SPC3;"&";:PROCBYTE(1):PRINT 
"Y"; s PROCHEXY (1) 

920 ENDPROC 

930 : 

940 DEFPROCREL 

950 LOCALA,B 

960 А=?(М%+1) 

970 IFA»127THEN В=1 ELSE В=@ 

980 PRINT;SPC3;"&";^" (М8+А+2-В%*256); | 
990 NZ=N3+2 

1000 PROCHEXY (1) 

1010 ENDPROC 

1029 : 

1030 DEFPROCIND 

1040 PRINT;SPC2;"(&"; : PROCBYTE (2) : PRIN 
T")" 7: PROCHEXY (2) 


1050 ENDPROC 
1060 DEFPROCHEX 
1070 NS=NS+1 
1088 PROCHEXY (0) 
1090 ENDPROC 
1100 : 
221110 DEFPROCASC 
1128 N$zN$-1 
1130 PROCHEXY (0) 
1140 ENDPROC 
1150 : 
1160 DEFPROCBYTE (1%) 
1178 LOCALBS 
1180 B$-T$ 
1198 REPEAT 
1200 IF ?(М%ҒТ%)<16 THEN PRINT; "0"; 
1210 PRINT;~ ? (NS+TS) ; 
1220 Т%-Т%-1 
1230 UNTIL T$«l 
1240 М%=М%+В%®+1 
1250 ENDPROC 
1260 .: 
1270 DEFPROCHEXY (Y) 
1280 PRINTTAB(2@,VPOS) ;C13; 
1290 FORJZN$- (Y+1) TO (N3-1) 
1300 VDU32 
1310 IF?J«16THENPRINT ; "0"; 
1320 PRINT; ^ ?J; 
1330 NEXT 
1340 PRINTTAB(33,VPOS) ; 
1350 FORJZzN$- (Y+1) TO (N$-1) 


1360 


1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1518 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1939 
1940 
1950 


PROCoutbyte(?J AND 127) 


NEXT 
PRINT 
ENDPROC 


DEF PROCoutbyte (I 


I$-1$ AND 127 
IF 1%=127 1%-0 


$) 


IF I3>32 VDU I$ ELSE VDU 46 


ENDPROC 


DEF PROCinit 


PROCnice("BEEBUG Disassembler.") 


PROCnice("By L.P.Baxter.") 


DIM OPCOS (255) 
FOR I-0TO255 
READ OPCOS(I) 
NEXT 

ENDPROC 

DATA BRK IMP,ORA 
DATA ??? HEX,??? 
DATA ASL ZRO,??? 
DATA ORA IMM,ASL 
DATA ??? HEX,ORA 
DATA ??? HEX,BPL 
DATA ??? HEX,??? 
DATA ORA ZRX,ASL 
DATA CLC IMP,ORA 
DATA ??? HEX,??? 
DATA ASL ABX,??? 
DATA AND IDX,??? 
DATA BIT ZRO,AND 
DATA ??? ASC,PLP 
DATA ROL ACC,??? 
DATA AND ABS,ROL 
DATA BMI REL,AND 
DATA ??? ASC,??? 
DATA ROL ZRX,??? 
DATA AND ABY,??? 
DATA ??? ASC,AND 
DATA ??? ASC,RTI 
DATA ??? ASC,??? 
DATA EOR ZRO,LSR 
DATA IMP,EOR 
DATA ??? ASC,JMP 
DATA LSR ABS,??? 
DATA EOR IDY,??? 
DATA ??? ASC,EOR 
DATA ??? ASC,CLI 
DATA ??? ASC,??? 
DATA EOR ABX,LSR 
DATA RTS IMP,ADC 
DATA ??? ASC,??? 
DATA ROR ZRO,??? 
DATA АРС IMM,ROR 
DATA JMP IND,ADC 
DATA ??? ASC,BVS 
DATA ??? ASC,??? 
DATA ADC ZRX,ROR 
DATA SEI IMP,ADC 


IDX,??? 
HEX,ORA 
HEX, PHP 
АСС,??? 
ABS,ASL 
REL,ORA 
HEX, ??? 
ZRX,??? 
ABY,??? 
HEX, ОВА 
HEX, JSR 
ASC,??? 
ZRO,ROL 
IMP, AND 
ASC,BIT 
ABS, ??? 
IDY,??? 
ASC,AND 
ASC,SEC 
А5С,??? 
ABX,ROL 
IMP, EOR 
ASC,??? 
ZRO,??? 
IMM,LSR 
ABS,EOR 
ASC,BVC 
ASC,??? 
ZRX,LSR 
IMP, EOR 
ASC,??? 
ABX, ??? 
IDX,??? 
ASC, ADC 
ASC, PLA 
АСС??? 
ABS,ROR 
REL, ADC 
ASC,??? 
ZRX,??? 
ABY,??? 


HEX 
ZRO 
IMP 
HEX 
ABS 
IDY 
HEX 
HEX 
HEX 
ABX 
ABS 
ASC 
ZRO 
IMM 
ABS 
ASC 
ASC 
ZRX 
IMP 
ASC 
ABX 
IDX 
ASC 
ASC 
ACC 
ABS 
REL 
ASC 
ZRX 
ABY 
ASC 
ASC 
ASC 
ZRO 
IMP 
ASC 
ABS 
IDY 
ASC 


ASC ` 


ASC 
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1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 


РАТА 
РАТА 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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??? 
ROR 
STA 
STY 
22? 
TXA 
STA 
BCC 
??? 
STX 
STA 
2?? 
22? 
LDX 
LDA 
TAY 
??? 
LDX 
LDA 
LDY 
22? 
TSX 
LDA 
CPY 
22? 
DEC 
CMP 


ASC, ??? 
ABX,??? 
IDX,??? 
ZRO, STA 
HEX, DEY 
IMP,??? 
ABS, STX 
REL, STA 
HEX, STY 
ZRX,??? 
ABY,TXS 
HEX,STA 
HEX,LDY 
IMM,??? 
ZRO,LDX 
IMP,LDA 
HEX,LDY 
ABS,??? 
IDY,??? 
ZRX,LDA 
HEX,CLV 
IMP, ??? 
ABX,LDX 
IMM, CMP 
HEX, CPY 
ZRO,??? 
IMM,DEX 


ASC,ADC 
ASC,??? 
HEX, ??? 
ZRO,STX 
IMP, ??? 
HEX,STY 
ABS, ??? 
IDY,??? 
ZRX,STA 
HEX,TYA 
IMP, ??? 
ABX,??? 
IMM, LDA 
HEX, LDY 
®ЕО,??? 
IMM, TAX 
ABS,LDA 
HEX,BCS 
HEX, ??? 
ZRX,LDX 
IMP, LDA 
HEX, LDY 
АВҮ,??? 
IDX,??? 
ZRO,CMP 
HEX, INY 
IMP, ??? 


ABX 
HEX 
HEX 
ZRO 
HEX 
ABS 
HEX 
HEX 
ZRX 
IMP 
HEX 
HEX 
IDX 
ZRO 
HEX 
IMP 
ABS 
REL 
HEX 
ZRY 
ABY 
ABX 
HEX 
HEX 
ZRO 
IMP 
HEX 
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2230 DATA 
2240 DATA 
2250 DATA 
2260 DATA 
2270 DATA 
2280 DATA 
2290 DATA 
2300 DATA 
2310 DATA 
2320 DATA 
2330 DATA 
2340 DATA 
2350 DATA 
2360 DATA 
2370 DATA 
2380 DATA 
2399 DATA 
2400 DATA 
2410 : 


EY 
227 
22? 
CMP 
CLD 
227 
DEC 
SBC 
CPX 
222 
МОР 
5ВС 
ВЕО 
??? 
INC 
SBC 
222 
2??? 


ABS,CMP 
HEX, BNE 
НЕХ,??? 
ZRX,DEC 
IMP,CMP 
HEX, ??? 
ABX,??? 
IDX,??? 
ZRO, SBC 
HEX, INX 
IMP, ??? 
ABS, INC 
REL, SBC 
HEX , 22? 
ZRX 123 
ABY,??? 
HEX, SBC 
HEX 


2420 DEF. PROCnice (AS) 


2430 AS=CHRS141+CHRS1 32+CHRS157+CHRS13 
"4CHRS1 56 


4+AS+" 


2440 LOCAL I$ 
2450 FORI$-0TOIl 


2460 PRINTTAB ( (4U-LENAS) 


2470 NEXT 


2480 ENDPROC 


1984 


ABS,DEC 
REL,CMP 
HEX,??? 
ZRX,??? 
ABY,??? 
HEX,CMP 
HEX,CPX 
HEX,??? 
ZRO, INC 
IMP, SBC 
HEX,CPX 
ABS,??? 
IDY,??? 
HEX, SBC 
HEX, SED 
HEX, 22? 
ABX, INC 
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DIV2); 


ABS 
IDY 
HEX 
HEX 
HEX 
ABX 
IMM 
HEX 
ZRO 
IMM 
ABS 
HEX 
HEX 
ZRX 
IMP 
HEX 
ABX 


AS 


/f 
fi 
[+ ü 


UR GRAPHICS TABLETS 


reviewed by Russell Tubb 


Although the BBC micro is capable of excellent graphics, the standard keyboard is 


not an ideal device for entering graphics designs and drawings. This is much more 
easily acnieved by some form of digitizer, such as a graphics tablet, togetner with 
Some good supporting software. This month, Russell Tubb reviews four of the graphics 


tablets currently available. 


MODELS REVIEWED: 
Beebplotter 

Watford Electronics 
Price :£ 84.00 


Graphics Tablet 
G.T. Norton 
Price :Е35.00 


CAD-GET 

Acedemic Software 

Price :£78.5¢ 

(A left-hand version of the tablet is 
available for the same cost as the 
right-hand version. Educational orders 
will receive а 10% discount.) 


P.L. Digitizer 
B.S. Dollarmore Ltd. 
Price :£149,95 


(All prices quoted are inclusive of 
VAT, where applicable, апа delivery. 
For addresses of suppliers see at end 
of reviews.) 


INTRODUCTION | 
Graphics tablets or digitizers are 
one relatively cheap and easy way of 
transfering freehand drawings or 
sketches into the computer for 
manipulation, storage and printing. 


Nearly all those currently available 
work on the pantograph system, which 
consists of a pivoted arm with variable 
resistors at the 'shoulder' and 'elbow' 
whose resistance tis directly 
proportional to the position of the 
'hand' on the drawing area. Movements 
can be reproduced on the screen and 
special time saving routines such as 
drawing a rectangle from only two 
points can be incorporated into the 
software. 


All the models use the analogue 
input port and need a calibration 
routine to set them up correctly (the 
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CAD-GET is 
calibrated). 


delivered already 


The useful drawing area of these 
tablets is just over А4 size and they 
all have а graticule related to that 
size printed on the baseboard (or in 
one case, as an overlay sheet). The 
quality of design and construction is 
important but the effectiveness of this 
type of device depends ultimately оп 
the accompanying software. We shall 
look at both hardware and software in 
this review. 


BEEBPLOTTER from Watford Electronics. 

The striking thing about this model 
is the high quality construction. The 
baseboard is 40cm (16") x 48cm (19") 
smoked Perspex with a strong two-tone 
arm in similar colours to the BBC 
Micro. The movement is very smooth and 
positive. 


The software is of a high standard 
and responds quickly, despite being in 
Basic (except the infill routine), and 
is easy to use. A drawing is produced 
by a sequence of commands, which are 
displayed in the bottom three lines of 
the screen as they are entered. 
Commands include: rectangle, line, 
circle, follow mode, print at.., move 
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and redraw, define 
drawing colour, wipe screen, save, edit 
and infill. These are all entered via 
the keyboard. When drawing lines, 
circles or rectangles, the shape is 
constantly plotted on the screen, so 
that it may be positioned exactly, and 
then 'fixed'. All eight steady colours 
are available, and logical colour 
changes also are possible (ie VDU 19). 


Drawings may be saved and stored as 
a string of corresponding commands 
rather than a straight screen dump. 
This allows two very useful features: 
"ейік" and 'move and redraw’.  'Edit' 
clears the screen and displays a list 
of the commands which describe how each 
step of the picture was built up, 
giving the option of skipping over 
those steps no longer required. "Моуе 
and redraw' allows all or some of the 
picture to be copied to another part of 
the screen. 


Approximately 200 commands fit into 
lk of memory, so there should be few 
problems of space. Tips for disc owners 
on how to obtain more room are included 
in the handbook. Pictures can be saved 
at any Stage and overlay each other, 


which further extends the picture 
capacity. 
Completed drawings can be 


incorporated into other programs Бу 
using a short routine supplied, which 
deciphers the command string. ‘The 
Beebplotter need not be connected when 
doing this. Also supplied is a tape 


with а picture dump routine апа 
programs in the manual for 
Acorn/Seikosha GP8@/GP1@@ and Epson 


MX80 printers. In practice, this system 
proved both simple to understand and 
easy to use. 


GRAPHICS TABLET from С.Т. Norton 

This tablet measures 46cm (18") x 
41cm (16") and is finished іп white 
Formica with a wood coloured, square 
section plastic arm. The whole unit 
does not appear to be too rugged and 
has a decidedly unprofessional 
appearance. The arm has a slight upward 
movement, allowing thick books to be 
traced easily through the sighting hole 
at the free end of the arm. There is 
also a utility button at this end of 
the arm which serves several functions. 


colours, alter 


The software for this tablet uses a 
combination of function keys, 
alpha-numeric and the utility key to 
select the desired option and at 
several stages either may be used. For 
example, there are coloured blocks down 
the left hand side of the tablet, which 
can be used to select background and 
foreground colours. 


Unfortunately the program is slow to 
respond to all commands, as lengthy key 
depressions are needed to select the 
functions available (select colour, 
draw, line, triangle, rectangle, 
ellipse, fill, title, erase, abort, 
help, save and retrieve). 


The picture is not saved as it is 
built up, so that clearing the screen 
accidentally will lose everything. The 
save routine simply *SAVEs the screen 
memory for the mode it is in, and сап 
be retrieved for further modification. 
Editing is done, rather crudely, by a 
character sized, background coloured, 
block which clears anything it passes 
over. The fill routine works at machine 
code speed, but only if the background 
is initially black. However, on the 
review model, it did not appear to work 
at all. 


The program is in Basic (apart from 
the fill routine) but is unLISTable. 
The completed screens can be used 
separately by  *LOADing them іп the 
appropriate mode, although the manual 
gives no advice on this point. 


CAD-GET from Academic Software 


The Computer Aided Design Graphics 
Entry Tablet is, as the maker's name 
implies, aimed primarily at the 
education market. Indeed it includes 
many features that make it ideal for 
schools, but it appears equally well 
Suited to home or office use. 


Mounted on a clear Perspex base 46cm 
(18") x 3lem (12") with a brushed 
aluminium arm, each САр-СЕТ comes 
pre-calibrated, though it may be 
recalibrated, Бу software, for a 


different drawing area if required. It 
is also available as а left-handed 
model on request, and thumbwheels are 
an optional extra. 
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Due to the size of the operating 
program only modes 4 and 5 are 
available to the user. The colours are 
selected from a palette at the top of 
the baseboard. 


All of the drawing commands are 
accessible from the tablet and a 
summary of them is also provided on the 
backplane. They include: erase, redraw, 
text, trace, line/dot, rectangle, 
arc/circle, polygon, fill/draw. When 
drawing, two buttons at the bottom left 
are used to select commands, move and 


plot. Editing is achieved. by deleting 
previous steps. 

Other options provided by the 
function keys are run, joystick or 


thumb wheel, reset, print, save, load, 
accuracy, mode and end. If the optional 
thumbwheels are fitted, you can switch 
between these and the digitiser arm for 
input. The thumbwheels operate іп the 
same way as the arm, but give much more 
accurate results for parallel lines and 
right angles. 


Technical details of the program are 


given in the manual, 
information on using the designs 
produced in other programs. If hard 
copy is required, a printer dump 
routine must be appended to the program 
but the key to control this is already 
incorporated in the software. A number 
of demonstration displays are included 
with the software such as the outline 
map of the British Isles illustrated. 
Again this system worked well. 


The P.L. Digitizer measures 31cm 


together with 


(12") x 56 (22") and is finished in a 
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simulated wood Formica. The top half, 
containing the mechanism, is enclosed 
and quite bulky in appearance. The base 
is accurately marked with the BBC micro 
graphics units with a plastic cover to 
place drawings under. The whole screen 
may be used for the design. 


The software for the tablet is 


comprehensive and complex. Various 
documents are provided to explain its 
uses, including exercise diagrams, a 
very detailed manual, function key 
template апа а quick reference card, 
which is essential considering the 
number of commands available. 


Following the calibration routine, 
either mode 4 or 5 is selected, and a 
function key is pressed to start 
drawing or to read a file. Eight 
example files are provided on the tape 
and these may be loaded using а short 
display routine which could also be 
used in other programs. 


There are well over fifty commands 
available to the user. These include 
line, box, draw, circle, fill (very 
fast), define colours (GCOL and VDU 19 
- all colours, including flashing, 
available), text апа line thickness. 
Some quite sophisticated manipulation 
routines, such as duplicate, reflect 
and rotate, аке provided and the 
software is also able to remember a 
number of cursor positions, which you 
can then return to at the press of a 
key. 


Other features include the ability 
to display user defined characters (a 
program is included for designing these 
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simple animation possible by delaying 
tne next instruction, and parallel 
lines which can be quickly created and 
used for hatching and texture. The 
sequence of demonstration displays and 
animations is a good indication of the 
impressive results that can be achieved 
with this system. 


CONCLUS IONS 

The Norton Graphics Tablet is the 
cheapest of the four tablets reviewed 
and this shows in the construction and 
general appearance. The utility key оп 
this tablet is a nice idea, but is 
probably the cause of the | poor 
response, which really defeats any 
advantage the key might provide. 
Overall the Norton Graphics Tablet is 
the bare minimum for a digitizer, even 
at this low price. 


Both the Beebplotter from Watford 
Electronics and {һе САС-СЕТ from 
Acedemic Software perform very 
satisfactorily. The  Beebplotter looks 
very | profressional and has good 
supporting documentation. The  CAD-GET 
tablet is also well produced, though 
without quite the robustness of the 
Beebplotter, while the optional 


thumbwheels could be very useful іп 
some applications. A compatible 
joystick is also available for use with 
the CAD-GET board as an alternative 
input device (the cost is £35.00). 


FADING PICTURES IN AND OUT ON A MONOCHROME DISPLAY 


The P.L. Digitizer, from Dollarmore 
with its many advanced features is the 
"Rolls Royce' amongst these graphics 
tablets, though you. do have to рау 
substantially more for the extra 
software facilities provided. It is a 
pity that the general appearance of 
this unit is not more attractive, 
though the solid construction may 
appeal to schools and colleges. Тһе 
manual and other aids to using this 
system have been produced to a high 
standard. The system certainly 
justifies its higher price though, 
unless the additional features аге 
essential to your needs, the two 
tablets by Watford Electronics and 
Academic Software provide good value at 
a much lower price. 


Suppliers: 
Watford Electronics, 
33/35 Cardiff Road, 
Watford, Herts WDl ӨЕР, 


G.T.Norton, 
Dormers, Selsey Road, 
Donnington, Chichester. 


Academic Software, 
Sourby Old Farm, 
Timble, Otley, W.Yorks LS21 2PW. 


B.S.Dollarmore Ltd, 
Burton Road, 


Castle Gresley, Burton upon Trent 
Staffordshire DE11 ОНА. E 


If you want an object on the screen to fade in, and you are using a black and 
white TV or monitor (or indeed, a colour TV turned to black and white), you can 


successively change the object from dark 


(black) through to light (white) by 


changing the object's colour. The range of shading relating to the colours (from 
dark to light) is: black, blue, red, magenta, green, cyan, yellow, white 

Try this short program which plots a square on the screen and continually fades 
it in and out using this technique. The colour is changed in line 90 using a VDU 19 
call. See the User Guide p.382 for further details. 


10 MODE 2:VDU 23,1,0; 06; 0;0;:ОСОЬ0,1 
20 MOVE 1024,0:РГ0Т85,1024,12804 

30 MOVE 0,1280:PLOT85,0,0 

40 REPEAT | 

50 FOR Ү=150 TO 160 STEP 10 

60 RESTORE Y 

70 FOR Х=0 TO 7 

80 READ COL 


90. VDU 195 1,COD3 ð; 


110 TIME=9:REPEAT: UNTIL ТІМЕ>10 
120 NEXT X,Y 
130 UNTIL FALSE 


140 END > 
150 DATA 0,4,1,5,2,6,3,7: REM FADE IN 
160 DATA 7,3,6,2,5,1,4,0: REM FADE OUT 


(Note: Do not renumber this program otherwise the calculated RESTORE in line 60 will 


not work. 
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The following program is one of the most 


BLOCK BLITZ (32K) 
by D. J. Pilling 


entertaining games we have seen for some 


time and will well repay the effort spent in typing it into your micro. It uses 
colour, graphics and sound to produce a fast and original action game that compares 
very favourably with many of the commercial games currently available. 


In this game, you are trapped in a 
series of caverns, from which you have 
to try and escape whilst being 
bombarded by blocks, dropped from above 
by a very mobile crane. As tne blocks 
fall towards you, you must try to dodge 
them if you want to stay alive, but 
your only way of making good your 
escape is to climb onto the blocks, and 
up ‘to the height of the walls. The 
crane is quite intelligent, and will 
try and drop the blocks on you, giving 
you the chance to practice some risky 
brinkmanship as you lure the blocks 
into the places that will best help you 
make your exit. If you succeed, a 
gantry extends from one of the walls, 
allowing you to escape. You are then 
thrown into an even deeper cavern! 


You move the man using the left and 
right cursor keys, and he will also 
climb over any blocks іп the way, 
provided he doesn't have to step up or 
down more than one block at a time. You 
will need to be very alert to avoid 
being trapped on a column, or between 
two high walls of blocks. 


If you should find the program too 
slow for your reactions, try changing 
line 180 to:- 


188 PROCbI:PROCm 
You will now need to react to the 
rapidly changing situation with the 
speed of lightning! 


10 REM PROGRAM BLOCK BLITZ 
20 REM VERSION В0.4 
30 REM AUTHOR  D.J.PILLING 
40 REM BEEBUG  JAN/FEB 1984 
50 REM PROGRAM SUBJECT TO COPYRIGHT 
60 : 
70 ON ERROR СОТО 259 
80 DIM 5% (19,31) ,MANS (5,1) 

90 РВОСсһас 

100 REPEAT 

118 MODE 7 

120 PROCsetupuser 

130 MODES 

140 PROCsetup 

150 REPEAT 

1680 PROCscreen 

170 REPEAT 

180 PROCb1 : PROCm: PROCd (2) 

198 UNTIL end$ 

288 PROCgame 

210 UNTIL demo% 

220 UNTIL FALSE 

230 END 

240 : 

258 ON ERROR OFF:MODE 7 

260 IF ERR<>17 THEN REPORT:PRINT" at 
line ";ERL 

270 END 
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280 3: 


290 DEF PROCchar 

300 aS-CHR$8:bS-CHRSlO:cS$-CHRSl1 

310 dS=CHRS17:eS=CHRS32 

320 fS-STRINGS (14,CHRS32) :gS=STRINGS ( 
5,CHRS32) 

330 VDU23, 224,28,48,62,20,28,60,126,1 
89 

340 VDU23,225,189,60,24,24,56,104,200 
‚ 7б 


350 VDU23,226,189,60,24,24,28,23,18,24 
360 VDU23,227,189,60,24,24,28,23,18,48 


370 VDU23,228,189,60,24,24,56,104,200 
,98 


380 VDU23,229,28,6,62,20,28,60,126,189 


390 VDU23,240,60,90,126,60,36,126,255 
‚189 | 

400 VDU23,243,255,129,255,129,66,36,2 
4,255 

412 VDU23,244,0,127,127,127,127,127,1 
27,0 
"420 VDUZ3,245,255,255,259,255,255,255 
‚255,255 

430 VDU23,246,9,126,126,126,126,126,1 
26,0 

440 VDU23,247,0,231,231,231,231,231,2 
31,0 

450 VDU23,248,189,189,60, 36, 36, 36, 36, 
102 

460 VDU23,249,119,34,34,127,127,65,65 
,99 

470 VDU23,250,189,219,255,189,165,255 
, 255,60 


480 VDU23,251,60,60, 60, 36, 36, 36, 36, 182 


490 ENVELOPE1,3,0,2,0,0,255,0,127,0,0 
,-127,80,80 

500 RS=dS+CHRS1 : YS=dS+CHRS2 

510 WS=dS+CHRS3 

520 MS=WS+CHRS248+bS+aS+RS+CHRS248 

530 MJS=bS+eS+a$+cS+RS+CHRS251+aS+cS+ 
WS4CHRS250 

540 MKS=cS+eS+bS+aS+WS+CHRS249+aS+bS+ 
RS+CHRS248 

550 £S5=eS+WS+CHRS224+bS+aS+aS+eS+RS 

560 MANS (1,0) =£S+CHRS225 

570 MANS (1,1) =£S+CHRS226 

580 f£S=eS+aS+aS#tw$+CHRS$229+bS+eStaSt+a 
S+RS 

590 MANS (0,0) =£S+CHRS227 

600 MANS (0,1) =£S+CHRS228 

612 £S=bSteSt+cStaS+eS+R$:gS=aS+cS+wS+ 
CHRS224 

620 MANS (3,0) =£S+CHRS225+gS 

630 MANS (3,1) =£S+CHRS226+gS 


640 £5=eStaS+bSt+eS+wWS+CHRS224+aS+bS+RS 


650 MANS (5,0) =£S+CHRS225 

660 MANS (5,1) -f94CHR$226 

670 f$-b$9teStcStaSteStaStaS-RS:gS$-aS$4 
CS+WS+CHRS$229 
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680 MANS (2,0) =£S+CHRS$227+gS 
690 MANS (2,1) =£S+CHRS228+g$ | 
700 f£S=eStaSt+bS+eSt+aSt+aS+WS+CHRS229+a 


S+bS+RS 


710 MANS (4,0) =£S+CHRS227 

720 MANS (4,1) =£S+CHRS228 

739 BS=RS+CHRS249+aS+bS+YS+CHRS244 
740 TLS=eS+aS+aS+RS+CHRS249 

750 TRS=eS+RS+CHRS249 

760 BLS=TLS+aS+bS+YS+CHRS244+eS 

770 BRS=TRS+aS+aS+bS+eS+YS+CHRS244 
780 BDS=YS+eS+aS+bS+CHRS244 

790 WALLS=CHRS246+CHRS246+cS+aS+aS+CH 


RS247+CHRS247+cS+aS+a$ 


800 НІ%-0:5С%-0 

810 ENDPROC 

820 3 

830 DEF PROCsetup 

840 VDU23;11,0;0;0; 0: VDU29, 640; 512; 
850 IF HI$«SC$ THEN HI$-SC$ 

860 Н%-4:М%-1:М%-0:МЕМ%5-3 

870 5С%=ЕМѕс (Н%) 5СТ%-0 

880 ENDPROC 

890: 

900 DEF PROCscreen 

910 CLS:COLOUR1 

920 PRINTTAB(0,0)"H ";HI$;TAB(9);"S " 


; SC$; TAB (17) "M ";МЕМ% 


930 COLOUR2 

940 gS=STRINGS (2, CHR$243) 

959 PRINTTAB(0,1)STRINGS (10,95); 

960 PRINTTAB(0,6)g9 ТАВ(18,6)45; 

970 PRINTTAB(0,29-H$)gS$ ТАВ(18,29-Н%) 


gS; 


980 COLOUR2: РКІМТТАВ (0,30) STRINGS (20, 


CHR$245) ; 


990 PRINTTAB (0,30) STRINGS (20, CHR$245) ; 
1000 COLOUR131:COLOURI 

1010 gS-STRINGS (H2/2,WALLS) 

1020 PRINTTAB (ð, 29) g$; 

1030 PRINTTAB (18,29) 9$; 

1040 COLOUR128 

1050 FOR 2%-0 TO 31 

1060 FOR I$-0 TO 19 

1070 IF J$-30 THEN S%(1%,J%)=2 ELSE 5% 


(1$,J2$) -0 


1080 NEXT I2,J$ 

1090 B$-28:A$-210:NG$-FALSE:end$-FALSE 
1100 PRINTTAB(A$,B2)MS$ 

1110 Y$-3:1F RND(2)=1 THEN  X$-0 ELSE 


1120 ENDPROC 

1140 DEF PROCm 

1150 IF M$-0 THEN M$-1 ELSE М%-0 

1160 IF 5%(А%,В%)<>0 THEN PROCng:ENDPR 


1170 IF demo% THEN 1200 
1180 IF INKEY-26 THEN IF А%>2 THEN 128 
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1190 IF INKEY-122 THEN IF 
230 
1200 IF NOT demo% THEN PRINTTAB (A$,B£) 
MS: : ENDPROC 
1210 IF Y$«-3 OR X%<>A% THEN PRINTTAB( 
2,B2)M$;: ENDPROC 
1220 IF А%-10 THEN 1280 
1230 IF S%(A%+1,B%)<>@ THEN ENDPROG 
1240 IF 5% (А%+1,В%+1) =2 THEN PRINTTAB( 
%,B%) MANS (3,M%) :AZ-AZ41:B2-B2-1:GOTO 1 
329 
1250 IF 5%(А%%1,Б%%2)-2 THEN PRINTTAB( 
$,B$)MANS(1,M2):AZ-A$41:GOTO 1320 
1260 IF S%(A%+1,B%+3)=2 THEN PRINTTAB( 
$,B$£)MANS(5,M2):A2-A241:B2-B241:GOTO 1 
320 
1270 ENDPROC 
1280 IF S%(A%-1,B%)<>@ THEN ENDPROC 
1290 IF 5%(А%-1,В%%1)-2 THEN PRINTTAB( 
$,B$)MANS(2,M$):AZ-AZ-1:B2$-B2-1:GOTO 1 
320 
4. IF 5%(А%-1,В%-2)-2 THEN PRINTTAB ( 
%,B%) MANS (0,M%) :А%-А%-1:С0ТО 1320 
p IF S$(A2-1,B$43)-2 THEN PRINTTAB( 
A%,B%) MANS (4,M2) :А$=А%-1:В%=В%+1 
1320 IF S%(A%,B%)<>@ THEN PROCng:ENDPR 
oC 
1330 IF B$-27-H$ THEN PROCwin:ENDPROC 
1340 ENDPROC 
1350 : 
1360 DEF PROCng 
1370 end%=TRUE: NG$=TRUE : MENS=MEN3- 1 
1380 SOUND&0911,0,0,0: SOUND, -15,5,12 
1390 PROCbonk 
1400 ENDPROC 
1410 : 
1420 DEF PROCd(T2) 
1430 T$-TIME-T$ 
1440 REPEAT UNTIL ТІМЕ>Т% 
1450 ENDPROC | 
1460 : | 
1470 DEF PROCwin | 
1480 IF 5%(Х%,Ү%)-1 THEN PRINTTAB(X$,Y 
$)e$;:SOUND&0011,0,0,0 
1490 PRINTTAB (A%,B%)MS: 
1500 end$-TRUE:COLOUR2 
1510 IF A$-2 OR A$-17 THEN 1540 
1520 D$-A$ | | 
1530 IF А%<9 THEN FOR С%-2 ТО AZ-1:PRI 
NTTAB (C%,B%+2) CHR2243:9S0UND2, -190,1900, 1: 


PROCd(15):NEXT ELSE FOR C$-17 TO A241 S 
ТЕР- 1: РКІМТТАВ (С%,В%+2) CHR$243: SOUND2, - 
10,100, 1:РКОСа (15) : NEXT 

1540 REPEAT IFA2«9 PRINTTAB(A%,B%) MANS 
(0,М%) :РКОСа (15) :А%=А%-1 ELSE PRINTTAB( 
A$,B$)MANS (1,M$) : PROCd (15) s:AS=A3+1 

1550 ІЕМ%=0 THEN M$-1 ELSE M$-0 

1560 UNTIL A%=1 OR А%-18 


1570 IF D$-2 OR D$-17 THEN 1630 
1580 COLOUR2: PRINTTAB (A2 ,B£) MS; 


%<17 THEN 1 


1590 IF D$«9 THEN FOR С%-р%-1 TO 2 STE 


P-1:PRINTTAB (C$,B$42) eS: SOUND2,—-10,100, 
1:PROCQ(15): 5. ELSE FOR C$-D241 ТО 17 
: PRINTTAB (С%,В%+2) е5:500М02,-10,100,1:Р 
ROCA (15) :NEXT 

1600 COLOURY:COLOUR] 31 

1610 IF AS=1 PRINTTAB (3,В%-1) "YIPPEE" 
ELSE РКІМТТАВ(11,В%-1) "YIPPEE" 

1620 COLOUR!28 

1630 FOR 1%=1 TO 10:PRINTTAB (A2,B2)MJS 
; *90UND0,—-15,4,1: PROCd (8) : PRINTTAB (A2,B 
$) MKS; : SOUNDO, -15,6, 1: PROCd (8) : NEXT 
1640 IF A$-1 PRINTTAB(3,B3-1)SPC(6) EL 
SE РКІМТТАВ(11,В%-1)5РС(6) 

1650 PROCd (150) 

1660 ENDPROC 

1670 : 

1680 DEF PROCb1 

1690 IF Y%=3 THEN 1800 

1700 IF T$»59 THEN 1720 

1710 IF Т%>0 PRINTTAB(T£,2)TL$:T£-T2-1 
¿GOTO 1730 ELSE PRINTTAB(@,2)eS:GOTO 17 


1720 IF Т%<19 PRINTTAB (T$,2) TR$: T$-T24 
1 ELSE See ry rene 
1730 PRINTTAB (X%3,Y%) BDS: AM ,Ү%)-0:У% 


-Ү5%1:5%(Х%,ҮФ)- i : ТЕ S%(X3,YS+1)<>2 THE 
М ENDPROC 
1740 5%(Х%,Ү%)-2 


1750 5004050011, 0,0,0: SOUNDS, -15,4,1 
1760 IF Т%<>@ AND Т%<>19 Ү%-Ү%-1:ЕМОРЕ 


OC 


1770 IF RND(1)>.5 THEN Х%-19 ELSE Х%=@ 
1780 5С%=5С%-10: РКІМТТАВ (11,0) 5РС (5) TA 
B(11,0) RS; SC} 

1790 Ү%=3: PRINTTAB ( %, 
1800 SOUND2,-10,60,1 
1810 IF (А%-Х% AND RND(1)>.5) THEN 1860 
1820 IF demo% THEN 1840 

1830 IF АВ5(А%-Х%)<2 THEN IF RND(1)>.8 
THEN 1860 

1840 IF А%<Х% THEN PRINTTAB(X2,2)BL9:X 
$-X$-] ELSE PRINTTAB (X£,2)BRS$:X2-X241 

1850 ENDPROC 

1860 IF X$«2 OR Х%>17 ENDPROC 

1870 T$-X$:S0UND1,1,350,90:GOTO1 730 

1889 : 

1890 DEF PROCgame 

1900 IF NGS AND MEN$-0 THEN PROClost:P 
ROCsetup: ENDPROC ELSE IF NG% THEN PROCC 
ng : ENDPROC | 

1910 NzN£41:H$-H2-42 

1920 IF Н%-18 THEN PROCover: 2. 
ENDPROC 

1930 PROCccg 

1940 ENDPROC 

1950 : 

1960 DEF FNsc(H£)-160* (Н%+1) 

1970 : 


2) B5; : ENDPROC 
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1980 DEF PROCr:REPEAT UNTIL INKEY-7À:E 
NDPROC 

1992: 

2000 DEF PROCsetupuser 

2010 VDUI9,1,2,0,0,0,19,3,6,0,0,0 

2020 PRINTTAB(7,2)CHRS131; "BLOCK 
BLITZ" 

2030 PRINTTAB (7,3) CHR$129STRINGS (20, "= 
a 

2040 PRINTTAB(@,6)CHRS134;" You have b 
een imprisoned by the evil" 'CHR$134;"Dr 
. X in an ever deeper series of"'CHRS13 
4;"caverns. To add to your problems, th 
ey"'CHRS134;"are being filled in with b 
locks aimed" 'CHR$134;"at you!" 

2050 PRINT''CHRS$130;" However if you c 
an reach the level of"'CHRS13@;"the bri 
ck sides by standing on the" 'CHRS130;"b 
locks you can escape from each cavern"' 
CHR$139;"and eventually from all of the 
шы" 

2060 PRINT''CHRS133;" You move by usin 
а the left and right"'CHRS133;"cursor k 
eys but you can only leap up"'CHRS133;" 
and down one block at a time." 

2070 *FX15,0 

2080 PRINT''CHRS129;" Do you want a de 
mo ?"CHRS136;" (Y/N) "; 

2090 IKS=GETS: IF IKS="Y" THEN demo$-TR 
UE ELSE IF IKS="N" THEN demo$-FALSE ELS 
E GOTO 2090 

2100 ENDPROC 

2110: 

2120 DEF PROCcng 

2130 SC$-SCT$:CLS:COLOUR2 

2140 PRINTTAB(4,5)"OH DEAR !"TAB(4,7)" 
YOU LOST"TAB (4,9) "A MAN" 

2150 PROCsctab:SC%=SCS$+FNSc (Н%) 

2160 ENDPROC 

2170 : 

2180 DEF PROCccg 

2190 SCT$-2SC$:CLS:COLOUR2 

2200 PRINTTAB(2,5) "NEXT --»"TAB(2,8)"C 
AVERN NUMBER ";N$ 


SINGLE KEY CHARACTER DEFINER - D.Pooley 


This 


Z -left | 
X -right 
* -up 


2210 PROCsctab: SC%=SCS+tENsc (Н%) 

2220 ENDPROC 

2230 3 

2240 DEF PROCsctab 

2250 VDU19,1,6,0,0,0 

2260 COLOURI 

2270 PRINTTAB (4,14) "MEN... ....  ; MENS 
2280 РВІМТТАВ (4,16) "SCORE....."; SC$ 
2290 PRINTTAB (4,18) "HISCORE...";HI$ 
2300 COLOUR2:PRINTTAB(1,28)"RETURN TO 
CONTINUE" 

2310 PRINTTAB(1,28)"RETURN TO CONTINUE" 

2320 PROCr:VDUI9,1,1,0,0,0 

2330 ENDPROC 

2340 : 

2350 DEF PROCover 

2360 CLS:COLOUR2 

2370 SC$-SCZ-MENZ*FNsc (18) 

2380 PRINTTAB (2,3) "CONGRATULATIONS" TAB 
(2,6) "YOU HAVE ЕЅСАРЕР"ТАВ (2,8) FROM AL 
L THE"TAB(2,19) "THE CAVERNS" 

2390 PROCsctab 

2400 ENDPROC 

2419 : 

2420 DEF PROClost 

2430 CLS:COLOUR2: SC3=SCT% 

2440 PRINTTAB (4,4) "САМЕ OVER"TAB(4,6)" 
YOU RAN ООТ"ТАВ (4,8) "ОЕ MEN" 

2450 PROCSctab 

2460 ENDPROC 

2470 : 

2480 DEF PROCbonk 

2490 CLS 
2500 FOR X$-150 TO 500 STEP 50:СС0Һ0,1 
:MOVE X$,X$:DRAW X%,-X%:DRAW -X$,—-X$:DR 
AW -X$,X$:DRAW X$,X$:X$-X$T50:GCOLO,2:M 
OVE X$,X$:DRAW X%,-X%3:DRAW —-X$,-X2$:DRAW 
—X$,X$:DRAW X$,X$:NEXT 
2510 COLOUR3:PRINTTAB(6,15)"B ОМ KI" 

2520 FOR I$-1 TO 8:Ур019,1,3,0,0,0,19, 
2,1, 0,0,0: PROCQ (8) :VDUI9,1,1,0,0,0,19, 
2,3,0 ,0,0:РКОСА(8) : NEXT 
2530 ENDPROC 


single key definition allows you to define а character and is easily stored 
in a function key ready for immediate use. 


? -down 
Space -insert block 
S -print out the values 


Moving the cursor over a square will delete it. | 
*KEYOMO.7:X-0:Y-20:REP.:P.TAB(X,Y);:Q-GET:X- (X+ (0=90) - (0=88) ) MOD8: Y= (Y+ (Q-58) - (0=47) ) 
MOD8 : X=X— (Х<0) *8: YsY- (YXU) *8:? (H. +X+Y*4ø) =0=32:0.0=83:Е.Ү=0Т07:С=0:Е.Х=0Т07:С=С+ (27 ( 
7-X) AND? (H. +X+¥*4@) =255) :N. : P. TAB(10, Y) ;C:N. |M 
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WORDWISE GOES LIKE A BOMB 
Dear Sir, 

Thank you for the WORDWISE package 
you supplied. It works extremely well. 

Would you please note that any 
packages sent to servicemen overseas 
must have some identification on the 
outside and preferably а customs 
declaration. The WORDWISE package had 
none of this, and was therefore treated 
aS a suspect package, i.e. the bomb 
disposal squad were called in to deal 
with it. Fortunately they declared it 
safe. They could just as easily have 
destroyed it! 


J.M.Nicholson 


Reply: We are not а subversive 


organisation though producing  BEEBUG 
сап be occasionally mindblowing! More 
seriously, we have noted Sgt. 


Nicholson's point about orders sent to 
servicemen. 


BEEB IMPROVES AT MATHS 
Dear Sir, 

Mr McMillan should not blame his 
machine for scoring 10.5% in his maths 
test!  (Postbag Vol.2 No. 5). You 
pointed out that the problem arises 
from storing all numbers in binary and 
I would just add that there is no 
"rounding" function on the BBC micro. 

However, if the following program is 
run, the machine will score 100%: 

10 FOR Мей TO 1 STEP 0.001 

20 PRINT ІМТ((М%1000) 50.5) 

30 NEXT N 

Robin A.Richmond 


Reply: I thought that getting a friend 
to help you in exams wasn't 
allowed! - Ed. 


PROBLEMS IN USING WORDWISE 
Dear Sir, 

I nave now discovered that ту 
.WORDWISE ROM is not faulty. However, 
the reason for the apparent fault may 
be of interest to others. I recently 
wrote а routine which involved setting 
the base for the  Ctrl-function-key 
codes to 140 (ХҒХ227,140). 
Unfortunately, WORDWISE appears to use 
the cursor keys аз function keys and 
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144, 
upsets 


expects the standard 
Thus | changing the 


setting of 

setting 
WORDWISE (it really ought to reset the 
base level itself). 


S.Gaynor 


WHY BOTHER WITH HEX? 


Dear Sir, 


A short article (BEEBUG Vol.1 No.8) 
explained clearly what hexadecimal is, 
and pointed out that one byte can hold 
any number up to &FF (decimal 255). 
However, 1% continued by saying that a 
'page' of memory is 8100 bytes. While 
convenient, surely this is purely a 
convention, and a page could just as 
well be &100 bytes to base 7, or base 
163? 

So why bother with hex? I сап see 
that in the days of true binary machine 
code programming, hexadecimal was а 
useful tool to translate the mind 
boggling ðs and 15 into something 
human. But what, if any, is the 
advantage of hex when using a high 
level language like Basic? 

J.Davies 


Reply: Nearly all modern computers are 
binary machines and this is fundamental 
to their whole organisation. One byte, 
as Dr.Davies says, can address 5100 
(decimal 256) memory locations. To 
address even one more memory location 
would require two bytes, but this would 
be very inefficient as two bytes could 
address as many as 10000 (65536 
decimal) memory locations. So, keeping 
everything in binary (or hexadecimal) 
is simply the most efficient way of 
organising a binary machine. 

In answer to  Dr.Davies' second 
point, the answer is almost the same. 
Whenever Basic is used іп connection 
with something that is essentially 
binary, then hexadecimal can, in 
practice, be а more useful апа 
convenient representation than decimal 
(examples are in logical operations and 
in user defined characters). Decimal 
can be and often is used instead. We do 
try and ensure that the two are not 
unnecessarily mixed, but this is not 
always feasible with contr ibuted 
programs. 
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TOOLKIT AND DISC DOCTOR CLASH 
Dear Sir, 
I have 


just been scanning the 
catalogue of BEEBUG software which 
accompanied the December issue of the 
magazine. As I looked at your TOOLKIT 
ROM and Computer Concepts' DISC DOCTOR, 
I found that several of the functions 
had the same name (e.g. EDIT, MOVE). 

As the paged ROM system operates Бу 
offering commands to each ROM in turn 
until they are recognised, this means 
that if I have TOOLKIT in a higher 
Socket than DISC DOCTOR I cannot get at 
4 out of 20 of DISC DOCTOR's commands: 
in crude terms, that's six quid down 
the river. 


I believe that anybody marketing а 


ROM should think of a nice neat name 
` for each service he offers - and then 
immediately reject it as likely to 
cause this sort of clash. Could you not 
prefix each obvious command name with, 
for example, 'BEEB'? | 
A.H.Harker 


Reply: Whilst it is true that several 
features of our TOOLKIT have the same 
name as those in Disc Doctor, we have 
tried to overcome such clashes, which 
might occur with any ROM based 
software, by allowing the commands in 
TOOLKIT to be prefixed by 'B', very 
much the solution Mr Harker has 
suggested. This means that if you put 
DISC DOCTOR and TOOLKIT in your machine 
together, and type *EDIT <return>, you 
will be taken into the editing mode of 
Disc Doctor, whilst typing *BEDIT takes 
you into TOOLKIT's editing mode. This 
ensures that you will be able to access 
all of its commands. Disc Doctor is 
configured to take priority, so it will 
reply to commands such as EDIT and MOVE 
irrespective of the ROM socket it is 
placed in. If there is по conflict, 
TOOLKIT сап be given the ordinary 
non-prefixed call. 


GUARANTEES ON DISC DRIVES 
Dear Sir, 

Reviews of disc drives in BEEBUG 
(Vol.1 No.6, Уо1.2 No.7) do not mention 
the significant difference in the 
length of the guarantee periods between 
the various suppliers 


i understand the usual with *KEYn ... 
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Acorn disc drives are only guaranteed 
for 6 months while Microware, for 
example, guarantee all their drives for 
12 months. 

A further possible disadvantage to 
Acorn and other makes of disc drice 
that do not use an independant power 
supply is that in the event of the 
power supply unit оп the BBC micro 
failing, it might "blow" the disc drive 
as well. The total repair bill could be 
very hefty indeed. 

Ralph Erskine 


SWINGING ON A STAR 
Dear Sir, 

Your October reviewer, Ian Gilbert, 
sounded very regretful that his STAR 
DP840 has no descenders. I certainly 
found the 'g' and 'q' unacceptable so I 
Wrote a crude little procedure to 
intercept these two on their way to the 


printer. Thus the 'g' is replaced by 
'q' and later when the paper has been 
advanced slightly, overwritten with a 


'j'. so now you matrix dot printer 


owners know! This technique can also be 
used for underlining etc. 

This is very crude. Perhaps some 
other reader has found how to do a 
Screen dump for just one letter or 
found a way of defining one's own 
characters. 

PS. I have never used my TAB key. 
Can anyone save this key from a life of 
loneliness? 

PPS. To try out your ESP, make your 
Space invaders invisible. Then try for 
a high score! 

Martin Campbell 


Reply: We can't think of a better fix 
for the DP840, but the TAB key is 
intended for . use in applications 
software. Wordwise uses it rather like 
а typewriter TAB. If you want to bring 
it to life, there is an FX call which 
will define it to be any desired 
character. Use *FX219,x where x is the 
ASCII value to be returned.  *FX219,27 
will make it operate as an Escape key, 
or *FX219,12 will make it clear the 
Screen. The TAB key may also be used as 
a programmable function key. Use 
*FX219,128+n to make it operate as 
function key n, though it is restricted 
to the range of 0 to 15. Program it as 
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THE RAYBOX GAME (32K) 
by Richard Stott 


Test your powers of deduction with 
this very good implementation of the 
popular game 'Blackbox'. 


Four pegs are hidden somewhere on an 
8 by 8 grid, which is displayed on the 
Screen. The object of the game is to 
discover where the pegs are located by 
sending in 'rays' from one of the 32 
positions around the outside of the 
grid. The path of the ray is affected 
in different ways by different 
configurations of the pegs; it may be 
absorbed, reflected, or it may emerge 
at another point. By considering the 
possible ways іп which the ray could 
have travelled from one point to 
another, you can find out where the 
computer has hidden the pegs. 


You may try as long as you like to 
find the correct locations, but if you 
do want to give up and see where the 
pegs are, simply type іп the number 
'99' in response to 'RAY?'. This will 
then reveal the locations of the pegs. 


10 REM PROGRAM 
20 REM VERSION 
30 REM AUTHOR 
40 REM BEEBUG 
50 REM PROGRAM 
60 : 

70 DIM 5%(9,9) 
80 ON ERROR СОТО 1110 

90 MODE7: PROCvdu: PROCheader 


RAY-GAME 

B0.3 

R.STOTT 

JAN/FEB 84 

SUBJECT TO COPYRIGHT 


BEEBUG 


1) 
2) 


3) 


4) 


MO 


RULES 


If a ray collides with a peg head 
on, it is said to be ABSORBED. 

If a ray meets the corner of а peg, 
it will be DEFLECTED to one side. 


If a ray meets two pegs at either 
side of its path, it will be 
REFLECTED. 

If there is а ред immediately to 
the side of the cell at which a ray 
enters, the ray is also said to be 
REFLECTED. This is called 
"reflection at an edge', but the 
computer sees all reflections as 


being the same. 


100 PROCClear 

110 MODEl:PROCvdu:PROCsetup · 

120 PROCrand: PROCboard 

130 REPEAT ; 
140 A$-0:VDU26:PRINT' 'STRINGS (24, CHRS 


32) :VDU11:PRINT"RAY ?"; 
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150 CS=GET: IF C%=13 AND A% THEN 220 
160 IF С%-127 AND A% THEN VDU127:AS=A 
%/10:С0Т0150 
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180 IF С%-32 OR С%-42 PROCspot ( (C3-42 
)*-21.2442):1F EOG ТНЕМ1050 

190 IF C$«48 OR С%>57 ТНЕМ1 50 

200 Үр0С%:А%-А%%104С%-48 

210 С0Т70150 

220 UNTIL (A%>@ AND А%<33) OR A2-99 

230 IF А%-99 PROCshow:VDU28,25,30,39, 
2,12:С0Т01080 

240 J$-FNJ (А) :K%=FNK ( 
I vei cle” a > 

250 ІЕА%<9Х%-А%:Ү%- 


$):PRINT" - - 


260 ІҒА%<25АМрА%>16Х%-25-А%:Ү%-9 
270 ІЕА%<17АМОА%>8Х%-9:Ү%-А%-8 
280 ІЕА%<3ЗАМОА%>24Х%-0:Ү%-33-А% 


290 F$-0:REPEAT 

300 IFF$-1 AND(X$ «1 ORX2»8 ОВУ%<1 ORY 
S>8)AS="_ exits at "+STRS(FNCB(X%,Y3) )3U 
NTIL 1: PROCgo: GOTO13@ 

310 IF (FNdir=10ORFNdir=20RFNdir=3) ANDF 
$-0AS-" is REFLECTED": UNTIL]: PROCgo:GOT 
0130 

320 IF ЕМ№аіг=0Е%=1 : Х%=Х%+7%:Ү$=Ү$+К%: 
UNTIL 

330 IF FNdir-1lL$-J 
320 

340 IF FNdir-2L2-2J$2:J$--K2:K$-L$:GOTO 
320 

350 IF FNdir-3AS$-" is REFLECTED":UNTI 
L1:PROCgos:GOTO!36 

360 Аб-" is ABSORBED":UNTILI:PROCgO:G 
OTO130 

370 : 

380 DEF PROCsetup 

390 *FX4,1 

400 VDU19,2,11,0,0,0 

410 VDU23,254,0,0,0,24,24,0,0,0 

420 PROCPR(CHRS254,1,1) :G3=1:H=1 

430 ENDPROC 

440 DEFPROCPR(AS,X,Y) 

450 IF AS-CHR$254 THEN COLOUR2 

460 PRINT TAB(X*2-43,28-Y*2)AS$:COLOUR3 

470 АРИ 

480 

490 DEFPROCboard 

500 GCOL@, 1:FORXS=1 49TOE52STEP64 : MOVE 
X%, 363 DRAWXS, 764 :MOVE28 , X32 DRAW764,X3:N 
EXT 

510 GCOLW, 3:MOVE14@, 148: DRAW652,140:D 
RAW652, 652: DRAW1 40,652: DRAW1 40,140 

520 FORWS=1TO8: PROCPR (STRSW$ , W3, 0) : NE 
XT 

530 FORW%=9TO1 6: PROCPR(STRSWZ,9,W2-8) 
s NEXT 

540 FORW$-17TO24:PROCPR (LEFTS (STRSW3, 
1),25-W$,9.5) : PROCPR (RIGHTS (STRSW3,1) ,2 
5-W$,9) : NEXT 

550 FORW%=25T032:PROCPR (STRSW$ , 
3-W3) : NEXT 

560 ENDPROC 


-0.5,3 


170 IF C%>135 AND С%<140 PROCcursor 
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579. * 
580 DEFPROCrand 


590 FOR T$-1 TO 4:REPEAT AZ-RND(8):B$ 
-RND(8):UNTIL 5%(АЛ%,В%)-0:5%(А%,В%)-1:М 
EXT 

600 ENDPROC 

610: 


620 DEF FNJ(Q2):IFQ2«9 ОВ(0%>16АМр0%< 
25) ТНЕМ-йЕІ5ЕІЕО%<1?7ТНЕМ--1 ELSE=1 

630 DEF .FNK(Q2): IFQS«9THEN-1ELSEIFQ2» 
16ANDQ$ 4... 0 

640 DEF FNCB(M$,N$£) 

650 IFNZ-ÜTHEN-M$ 

660 IFNZ-OTHEN-25-M$ 

670 IFM%=9THEN=N$+8 

680 IFM$-ÜTHEN-33-N$ 

690 DEF FNdir 

700 =(S%(X$+I%, YS+K%S) AND1) *4+ (5% (X3+K 
%Һ2%,Ү%-0% > ККЗ) AND1) *2+ (5% (ХЗ—К%+1%,Ү%+7 
%+К%)АМО1) 

710 DEF PROCcursor 

720 IF(S%(G%,H%) AND 2)-0 THEN RS=CHR 
$32 ELSE R$z"x*" 

730 IF С%-136 AND G%>1 THEN PROCPR(RS 
,G$,H$):G$-G$-1:1F S$(G$,H$)-2 AND 5%(С 
$,H$)-3 THEN PROCPR(CHR$254,G$,H$) 

740 ТЕ С%-137 AND G$«8 THEN PROCPR (R$ 
,G$,H2$):G$-G$-1:1F S$(G$,H$)-2 AND 5%(С 
$,H$)-3 THEN PROCPR(CHRS$254,G$£,H$) 

a IF C%=138 AND H%>1 THEN PROCPR(RS 

G$,H2$):H$-H$-1:1F S%(G%,H%)-2 AND 5%(С 


Tis IF С%-139 AND H$«8 THEN PROCPR (R$ 

$,H$):H$-H9-1:1F 5%(6%,Н%)-2 AND 5%(С 
2. -3 THEN PROCPR(CHR$254,G$,H$) 

770 COLOUR3:VDU26;10;10: IFASPRINTSTRI 


NGS (LENSTRSA%+5,CHRS9) ; ELSE PRINTSTRIN 
GS (5,CHRS9) ; 


780 ENDPROC 

790: 

800 DEFPROCspot (W) 

810 EOG-] | 

820 PROCPR(CHRSW,G$,H$) | 

830 IF W-42 THEN 5%(С6%,Н%) -5%(С6%,Н%) 


OR 2 ELSE 5%(6%,Н%)-5%(6%,Н%) AND 1 


840 FORT$-1TO8:FORU$-1TO8:IFSS$ (T$,U2) 
=] OR 5%(Т%,П%)-2 THEN EOG-) 

850 NEXT 0% T3 

860 VDU26;10;10 

870 IF A% THEN PRINTSTRINGS (LENSTRSAZ 
+5,CHRS9) ; ELSE PRINTSTRINGS (5,CHR$9) ; 

880 ENDPROC 

890 : 

900 DEFPROCvdu 

910 VDU23,1,90;90;0;0; 

920 ENDPROC 

938 3 

940 DEFPROCheader 

950 FORT£-1TO2:PRINT TAB(12,T%) ;CHRS1 


4] ;CHR$129; "RAYGAME" : NEXT 
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960 PRINT'" when the prompt 'RAY ?' a 
ppears on the"'"screen, type in the ent 
ry point as a"'"number (1-32) followed 


ish. " sFORTS=1 109: READV,P, D: SOUNDI,V,P,D 
: NEXT 
1080 COLOUR3:PRINT''''"Another game?"' 


by RETURN."''" Using the cursor keys, m "Y/N - "5: РЕРЕАТС=СЕТ: UNTILG=8 9ORG=78:V 
ove the"'"flashing dot about the grid, DUG: IFG=78PRINT' '"Ok."ELSEI=INKEY5@ : RUN 
and"'"place or erase a marker by typing 1090 DATA20,96,4,20,76,2,32,76,1,20,76 
сыла. ,1,20,84,4,20, 76, 4,32,76,4,20,92, ^ 20,9 
970 PRINT"or a SPACE."''" These two k 6, 4 


inds of input operate"'"simultaneously. 
The game will end when"'"you have only 
four markers on the grid"'"and all are 


1190 : 
1110 ON ERROR OFF:MODE7:*FX4 
1120 IF ERR<>17 REPORT: PRINT at line 


in the correct places."' "SERL 
975 PRINT'" If you wish to see the pe 1130 END 
g positions at any time, then simply 1140 : 
type '99' in response to 'RAY?'," 1150 DEFPROCshow 
980 PRINT' CHRS$145;CHR$157;SPC7;CHRS] 1168 GCOL3,2 


36;CHRS131"Press SPACE to start"; 
990 REPEAT UNTIL GET=32 
1000 ENDPROC 
1010 : 
1020 DEFPROCgo 
1030 VDU7;28,25,30,39,2: PRINTCHRS11;CH 
RS11; STRSA$4AS: С0%-С0%%1:1,5-ІМКЕУҮ (100) 
1040 ENDPROC | 1220 FORc1$-1TO8:FORC122-1TO8 
1050 VDU28,25,30,39,2:CLS:COLOUR2:*FX9 1230 5%(с1%,с12%)-0 
‚25 1240 NEXT, 
1060 *FX10,25 1250 GU$-0 
1070 PRINT''" CORRECT !"':COLOURI:PRI 1260 ENDPROC 
NT" You used ";GU$'" rays to"'" fin 


1170 FORT£-1TO8:FORUZ-1TO8: PROCPR (" у 

%$,0%):1Е5%(Т%,0%)=1 OR 5%(Т%,0%)-3 THE 
М PROCPR("*",T2,U2) 

1180 МЕХТ:МЕХТ 

1190 ENDPROC 

1200 3: 

1218 DEFPROCClear 


SHORTER VDU CALLS - David Fell 
The following two commands are completely equivalent, although the second version 
saves 19 bytes: 
VDU 23,240,255,295,255,255,255,255,4259,:255 
VDU 23,240,-1;-1;-1;-1; 


Similarly 254 could be represented as -2, 253 as -3 and so on. 


FORMAT ERRORS 

If you have the Watford Electronics DFS, and Disc Doctor in your machine at the 
same time, and you use Disc Doctor to format your discs in drives | or 3, then you 
will find it formating drive 0. In addition, to format drive 2, you must select that 
drive first. Disc Doctor formats discs correctly when used with the Acorn DFS. 


SAFER ESCAPE ACTION - R.Duebel 
Safer ways of obtaining an Escape condition through the use of *FX220 are: 


*FPX220,0 makes Ctrl-@ produce Escape 
*FX220,128 makes "ЕЙ" produce Escape 
*FX220,144 makes Shift-fÜ produce Escape . 
*FX220,160 makes Ctrl-f0 produce Escape | 
*FX220,176 makes Shift-Ctrl-f0 produce Escape. 
The last command is an extremely useful and ae ree Кау Escape action. 


MEMORY SHORTAGE ON DISC MACHINES 
Placing botn Acorn's and Watford's DFS in your machine at the same time, will 
result in PAGE being set to &1В@@ when you switch on, since both grab their own 


private workspace. This will limit even further the size of program that it is 
possible to run. 
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BACK ISSUES (Members only) UBSCRIPTIONS 

All back issues are kept in print (from Send all applications for membership, 
April 1982). Send 90p per issue PLUS an subscription renewals, and subscription 
A5 SAE to the subscriptions address. | queries to the subscriptions address. 
This offer is for members only, so it 

is ESSENTIAL to quote your membership MEMBERSHIP COSTS: 

number with your order. Please note £5.40 for 6 months (5 issues) 
that the BEEBUG Reference Card and £9.90 for 1 year (10 issues) 
BEEBUG supplements are not supplied European Membership £16 for 1 year. 
with back issues. | Elseuhere (Postal zones) 


Zone А £19, Zone B £21, Zone C £23 


чазы сопа $ SOFTWARE AND ROM OFFER  (Memb Ly) 

санае Address SUTIWARE АМУ RUM Әггек emoers only 
NOTE OUR NEW EEBUG These are available from the 
SUBSCRIPTIONS PO BOX 109 subscription address, which is our NEW 
ADDRESS High Wycombe software address also. (Note that this 
Bucks "^ does not apply to Wordwise or Beebcalc 
HP11 2TD - in this instance please see magazine 


for details). 


.HINTS & TIPS, PROGRAMS, AND LONGER ARTICLES 


Substantial articles are particularly welcome and we Editorial Address 


will pay around £25 per page for these, but in this BEEBUG 
case please give us warning of anything that you PO Box 50 
intend to write. Іп the case of material longer St Albans 
than a page, we would prefer this to be submitted on Herts. 
cassette or disc in machine readable form using AL] 2AR 
"Wordwise", "Minitext Editor" or other means. If you 

use cassette, please include a backup copy at 300 

baud. 

We will also pay £10 for the best Hint or Tip that we publish, and £5 to the next 
best. Please send all editorial material to the editorial address opposite. If you 
require a rep]y it is essential to quote your membership number and enclose an SAE. 


BEEBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Edited by Mike Williams. Technical Editor: Philip Le Grand. 

Production Editor:  Phyllida Vanstone. Tecnnical Assistant: Alan Webster. 

Managing Editor: Lee Calcraft. 

Thanks are due to David Graham, Sheridan Williams, Adrian Calcraft, John Yale, 
Michael Beesley, David Fell and Tim Powys-Lybbe for assistance with this issue. 


All rights reserved. No part of this publication may be reproduced without prior 
written permission of tne Publisher. The Publisher cannot accept any responsibility, 
whatsoever, for errors in articles, programs, or advertisements published. The 
opinions expressed on the pages of this journal are those of the authors and do not 
necessarily represent those of the Publisher, BEEBUG Publications. Limited. 

BEEBUG Publications Ltd (c) January 1983. 


A special arrangement has been agreed between Acorn and BEEBUG whereby BEEBUG 
members may obtain the Series One Machine Operating System in ROM at the price of 
£5.85 including VAT and post and packing. 

The ROM will be supplied with fitting instructions to enable members to install 
it in their machine. 

If the computer does not subsequently operate correctly, members may take their 
machines to an Acorn dealer for the upgrade to be tested, which will be done at a 
charge of £6.00 plus VAT. This charge will be waived if the ROM is found to have 
been defective. If the computer has been damaged during the installation process, 
the dealer will make a repair charge. 


Please note that we cannot accept EPROM-based operating systems (0.1 or 1.0) dn 
Lieu of payment. This can only be performed by Acorn dealers or by Acorn's service 
centre at Feltham, and applies only to users of the 0.1 0.5. 


ADDRESS FOR 1.2 0.5. IF ORDERED ON ITS OWN:- ROM Offer, BEEBUG, РО Box 109, 
High Wycombe, Bucks, HP11 2TD. PLEASE ALLOW 28 DAYS FOR DELIVERY. 


* Simply plugs into the BBC Micro 


* No soldering necessary 


* Increases the sideways ROM capacity 
to 16 | 


* Fully buffered - allows all sockets 
to be used 


RAM / RAM/ 
ROM 12 ROM 14 ROMtSA ROM1SB 


* Complete with full and detailed 
instruction booklet. 


* Accepts 16K RAM in special sockets 
* Battery back up facility for RAM 


* As used at BEEBUG 


* Reviewed in BEEBUG vol.2 number 6 


HOW TO ORDER 


Please send your order with a cheque / postal order made payable to BEEBUG, and 
enclose your membership number. We are unable to supply the board to overseas 
members. 


The address for SIDEWAYS is: 


i 


F1 
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To save wear and tear on fingers and 
brain, we will be offering each month 
a cassette of the programs featured 
in the latest edition of BEEBUG. The 
first program on each tape is a menu 
program, detailing the tape's 
contents, and allowing the selection 
of individual programs. The tapes are 
produced to a high technical standard 
by the process used for the 
BEEBUGSOFT range of titles. Ordering 
information, and details of currently 
available cassettes are given below. 


cassettes: Vol.l Мо.10, 
Vol.2 No.2, Vol.2 No.3, 
Vol.2 No.5, Vol.2 No.6, 


Previous 

Vol.2 No.l, 
Vol.2- No.4, 
Vol.2 No.7. 


This month's cassette (Vol.2 No.8) 
includes: Block Blitz game, Machine 
Code Graphics example programs, 


Teletext 


procedures 
Disassembler, 
for Large Digital Display in Mode 7, 
Procedure to protect Basic programs, 


and program, 
Raybox game, Program 


Dancing Line program, plus Program 
Compactor (from BEEBUG Уо1.1 No.9). 
All magazine cassettes cost £3.00 
each. For ordering information see 
BEEBUGSOFT advertisement at the back 
of this month's magazine supplement. 


members 
magazine 


We are able to offer 
subscription to our 


cassettes. Subscriptions will be for 


a period of one year and are for ten 
consecutive issues of the cassette. 
If required, subsriptions may be 
backdated as far as Уо1.1 No.19, 
which was the first issue available 
on cassette. This offer is available 
to members only, so when applying for 
subscription please write to the 
address below, quoting your 
membership number and the issue from 
which you would like your 
subscription to start. 


BEEBUG MAGAZINE BINDER OFFER 


A hard-backed binder for the BEEBUG 
magazine is now available. These 
binders are dark blue in colour with 
'BEEBUG' in gold lettering оп the 
spine. They allow you to use the 
whole of the first volume of the 
magazine аз a single reference book. 
Individual issues may be easily added 
or removed. The binders will also 


conveniently hold less than 19 
issues, so that you can use it while 
you build up Volume 2 also. 


CASSETTE SUBSCRIPTION ADDRESS: 


Please send a sterling cheque with 
order, together with your membership 
number and the date from which the 
subscription is to run, to: 
PO Box 109, High Wycombe, Bucks, НР11 
2TD. 


CASSETTE SUBSCRIPTION PRICE: 

UK £33 inc VAT and p&p 

,OVERSEAS (inc Eire) £39 inc p&p 
(no VAT payable). 


BINDER PRICE 
U.K. £3.90 inc p&p, and VAT. 
Europe £4.90 inc p&p (VAT not charged)’ . 
Elsewhere £5.90 inc p&p 
(VAT not charged) 


Make cheques payable to BEEBUG. 

Send to Binder Offer, BEEBUG, PO Box 
109, High Wycombe, Bucks, НР11  2TD. 
Please allow 28 days for delivery on 
U.K. orders. 
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